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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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
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" <berko...@free.fr> 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
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
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
Merci daniel
je teste des demain
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:%23HF6uxB6JHA.1528@TK2MSFTNGP05.phx.gbl...
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
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