Tester la liaison avec un serveur de données

Le
berkowil
Bonjour
Voila le bout de programme pour tester si un repertoire existe sur mon
serveur.
Cependant cela plante quand il y a un problème reseau
Voyez vous une autre solution?
Merci

On Error Resume Next 'probleme avec le serveur
If Dir(\MonServeurceRepertoire, vbDirectory) = "" Then
IF ERR=0 THEN 'on crée le repertoire si la liaison est existant.
Si pas de liaison avec le serveur alos ERR est <> 0
MkDir (\MonServeurceRepertoire)
END IF
End If
End If
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #19514491
Bonjour.
Essaie :

Sub test()
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("e:donnees") = True Then _
MsgBox ("le dossier existe")
End Sub

Cordialement.
Daniel

Bonjour
Voila le bout de programme pour tester si un repertoire existe sur mon
serveur.
Cependant cela plante quand il y a un problème reseau
Voyez vous une autre solution?
Merci

On Error Resume Next 'probleme avec le serveur
If Dir(\MonServeurceRepertoire, vbDirectory) = "" Then
IF ERR=0 THEN 'on crée le repertoire si la liaison est existant.
Si pas de liaison avec le serveur alos ERR est <> 0
MkDir (\MonServeurceRepertoire)
END IF
End If
End If


gmlsteph
Le #19514471
Bonjour,
Si ton but est de le creer s'il n'existe pas c'est dans l'autre sens
qu'il faut penser:

ChDir "\monreseau"
On Error Resume Next
MkDir "ceRepertoire"
On Error GoTo 0

'lSteph

On 8 juin, 10:34, "berkowil"
Bonjour
Voila le bout de programme pour tester si un repertoire existe sur mon
serveur.
Cependant cela plante quand il y a un problème reseau
Voyez vous une autre solution?
Merci

On Error Resume Next 'probleme avec le serveur
        If Dir(\MonServeurceRepertoire, vbDirectory) = "" The n
            IF ERR=0 THEN 'on crée le repertoire si la li aison est existant.
Si pas de liaison avec le serveur alos ERR est <> 0
                 MkDir (\MonServeurceRepertoire)
            END IF
        End If
    End If


berkowil
Le #19515921
Merci daniel
je teste des demain


"Daniel.C" news:%
Bonjour.
Essaie :

Sub test()
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("e:donnees") = True Then _
MsgBox ("le dossier existe")
End Sub

Cordialement.
Daniel

Bonjour
Voila le bout de programme pour tester si un repertoire existe sur mon
serveur.
Cependant cela plante quand il y a un problème reseau
Voyez vous une autre solution?
Merci

On Error Resume Next 'probleme avec le serveur
If Dir(\MonServeurceRepertoire, vbDirectory) = "" Then
IF ERR=0 THEN 'on crée le repertoire si la liaison est
existant. Si pas de liaison avec le serveur alos ERR est <> 0
MkDir (\MonServeurceRepertoire)
END IF
End If
End If






Publicité
Poster une réponse
Anonyme