Tester l'existence d'un répertoire [REGLE !!!]

Marsh Posté le 11-01-2004 à 12:55:32

Dans mon userform, je demande un chemin de répertoire.
Au clic sur OK, je veux vériier si ce chemin existe.

repertoire = ma zone de texte dans mon userform

Je fais ceci :

Code :

Private Sub CommandButton1_Click()
'test pour ajouter "\" à la fin du chemin s'il n'y est pas
If Right(repertoire, 1) = "\" Then
repertoire_corrige = repertoire
Else
repertoire_corrige = repertoire & "\"
End If
If Dir$(repertoire_corrige) <> "" Then
MsgBox repertoire_corrige & " OK"
Else
MsgBox repertoire_corrige & " N'EXISTE PAS"
End If
Unload userform
End Sub

Le truc bizarre, c'est que ça marche à moitié !
Pour mon répertoire D:\Fichiers\Aéro\ c'est OK
Mais pour D:\Fichiers\ ça ne marche pas !!!
Pour la racine D:\ ça ne marche pas non plus ....

Une idée ?

Sinon, une autre soluce serait d'ouvrir une boîte de sélection de répertoire (un peu comme la boîte Fichier / Ouvrir) plutôt que d'avoir une zone de saisie, mais je ne connais pas la méthode

Message édité par F22Raptor le 11-01-2004 à 13:19:18

---------------
Is it a bird? Is it a plane? No it s F22Raptor ! - I love flying because football, baseball, rugby, and golf only take one ball

Reply

Marsh Posté le 11-01-2004 à 12:55:32

Reply

Marsh Posté le 11-01-2004 à 13:19:04

ayééééééééééééééé !
Ai trouvé !

Si ça peut servir à quelqu'un je mets le script en dessous :

Code :

Private Sub CommandButton1_Click()
On Error Resume Next
repertoire_existe = GetAttr(repertoire) And vbDirectory
If repertoire_existe = "" Then
msgbox repertoire & "N'EXISTE PAS"
Else
msgbox repertoire & "EXISTE, C'EST LA FÊTE"
End If
End Sub

---------------
Is it a bird? Is it a plane? No it s F22Raptor ! - I love flying because football, baseball, rugby, and golf only take one ball

Reply

Marsh Posté le 12-01-2004 à 01:12:47

Autre moyen :

Code :

Public Function Exists(ByVal filename As String) As Boolean
Exists = False
If StrComp(filename, vbNullString, vbTextCompare) = 1 Then
If StrComp(Dir$(filename), vbNullString, vbTextCompare) = 1 Then Exists = True
End If
Exit Function
End Function
Private Sub Form_Load()
' il faut terminer le chemin par un "\"
If Exists("z:\temp\" ) Then
MsgBox "Le répertoire existe"
Else
MsgBox "Le répertoire n'existe pas"
End If
End Sub

Reply

Tester l'existence d'un répertoire [REGLE !!!]

Sujets relatifs:

Leave a Replay