Discussion :

[Oh!Tofocus]

bonjour à tous
Avez vous une méthode simple pour vérifier si un dossier existe
quand on a son chemin hypothétique.

merci d'avance.

J'ai trouvé ça
moi je le trouve un peu biscornu
qu'en pensez-vous ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
dossier_existe = False
On Error GoTo no_dossier
ChDir (chemin)
dossier_existe = True
no_dossier:
If dossier_existe = True Then MsgBox ("le dossier existe")

que peut-on utiliser à la place de ChDir ?

[aalex_38]

Je ferai comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
DossierExiste = Dir(NomDossier, vbDirectory) <> ""
If dossierexiste <> true then
 msgbox "le dossier n'existe pas "
end if

ou alors créer une fonction une bonne fois pour toute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function DossierExiste(ByVal NomDossier As String) As Boolean
DossierExiste = Dir(NomDossier, vbDirectory) <> ""
end function

et ensuite on test ou on veut dans le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Not DossierExiste(Repdest, True) Then
'---

[mapeh]

Bonsoir,

une autre alternative....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim x As String
Dim LePath As String
On Error Resume Next
LePath = "F:\MesDocs"
x = GetAttr(LePath) And 0
If Err <> 0 Then
    MkDir LePath
End If

dans cet exemple, si le répertoire n'existe pas, on le créé...

[ouskel'n'or]

Ai plus mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
MsgBox "Le répertoire existe-t-il ? " & (Dir("D:\N'importe quoi\") <> "")
End Sub

Après tu peux broder

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test2()
MsgBox "Le répertoire " & "D:\N'importe quoi\" & " existe-t-il ? " & (Dir("D:\N'importe quoi\") <> "")
End Sub

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test3()
If Not Dir("D:\N'importe quoi\") <> "" Then MsgBox "N'importe quoi !"
End Sub

où le nom du répertoire est "D:\N'importe quoi\", tu as bien compris
C'est toi qui vois

[Oh!Tofocus]

Merci beaucoup c'est plus clair comme ça.