Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Tester la liaison avec un serveur de données

3 réponses
Avatar
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(\\MonServeur\ceRepertoire, 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 (\\MonServeur\ceRepertoire)
END IF
End If
End If

3 réponses

Avatar
Daniel.C
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


Avatar
gmlsteph
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" wrote:
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


Avatar
berkowil
Merci daniel
je teste des demain


"Daniel.C" a écrit dans le message de
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