savoir si un repertoire existe

Question

j'ai besoin de savoir si un répertoire existe pour le créer ou non.

Pour créer le répertoire c'est mkdir "nomrep" mais pour savoir si il existe ???

Eric · Answer

Il y a une méthode disponible dans la section Fichier/Disque à la page 3 pour tester la présence d'un répertoire sur le disque, voici une copie de ce qui est disponible, je l'ai moi-même testé avec succès!

Sub VerIf()

Dim MyPath As String 'Définition des variables
Dim myName As String

MyPath = "c:\windows"  ' On initialise la variable
If (myName Dir(MyPath, vbDirectory)) vbEmpty Then 'On teste 
l'existence du répertoire...
        MsgBox " Le répertoire " & Chr(34) _
            & MyPath & Chr(34) & " existe bien !", _
                vbInformation
            
            Else
            
        MsgBox " Le répertoire " & Chr(34) _
            & MyPath & Chr(34) & " n'existe pas !", _
                vbExclamation
            
End If
End Sub

cs_ravachol · Answer

je vais tester ca (j'en ait besoin aussi)
mais quand j'ai tester avec dir
s'il existe des fichiers dedant ca &#249;arche mais sinon il revoit
une string vide comme si le repertoire n'existait pas !!!

walangel · Answer

M = "C:\Gestion\Audit"
If Dir(M, vbNormal) = "" Then
MsgBox "Dossier n'existe pas"
End If

walangel · Answer

M = "C:\Gestion\Audit" 
If Dir(M, vbNormal) = "" Then 
MsgBox "Dossier n'existe pas" 
End If

walangel · Answer

Désoler,
pour le retour à la ligne.

walangel · Answer

M = "C:\Gestion\Audit" 
If Dir(M, vbNormal) = "" Then 
MsgBox "Dossier n'existe pas" 
End If

Savoir si un repertoire existe

6 réponses

Discussions similaires