tester l'existance d'un dossierRésolu

Question

Bonjour, J'écrit un script en VBS, qui devra fair plusieur traitement sur les fichier d'un dossier. Aprés avoir parcouru les tuto et forum j'ai réussi a trouvé du code qui pourrai me permettre de fair ca Mais ca marche po Dans mon code c'est la fonction "If Dir(chemin, vbDirectory) <> """ Then qui ne marche pas quoi que je fasse il considere que c'est vrai, pourtant mon debogueur ne révéle pas d'erreur ( j'utilise VbsEdit) While chemin = "" chemin = InputBox ("Entrer le chemin du dossier à lister") If Dir(chemin, vbDirectory) <> "" Then MsgBox("Vous allez scanner le repertoire " & chemin) Else MsgBox("Le chemin " & chemin & " n'éxiste pas") chemin ="" End If wend Pleeaase Help Merci.

cs_JMO · Accepted Answer

Bonjour,

Exemple avec Fso:

Dim Fso, Dossier
Dossier = "d:	est"
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FolderExists(Dossier) Then
   MsgBox "Le répertoire   """ & Dossier  & """  existe !!!"
   Else
   MsgBox "Le répertoire   """ & Dossier  & """  n'existe pas !!!"   
End If
Set Fso = Nothing

jean-marc

drikce06 · Answer

Salut

et si tu test avant si chemin="" ca marche pas

if chemin="" then

else

end if

et si le chemin qu'il rentre n'existe pas ?

 Drikce 06

neocam · Answer

Salut Drikce06,

La boucle fonctionne trés bien pareil pour le test if. 
C'est justement ce que j'essaye de tester (si le chemin existe). et c'est ca qui ne marche pas,
Moi je veux que si ca marche pas il previen et réinvite l'utilisateur  à saisir de nouveau le repertoir sinon il continu le traitement.

neocam · Answer

Merci a toi JMO,  trop bien ca marche nikel................ merci

Tester l'existance d'un dossier

4 réponses

Votre réponse

Discussions similaires