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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Tester l'existence d'un répertoire [REGLE !!!]

F22Raptor

Tête en l'air ...

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

Publicité

F22Raptor

Tête en l'air ...

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

karlkox

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
[PHP] Connaître la taille d'un répertoire sur un serveur en local...	Peut-on copier un répertoire entier ?
Répertoire courant de l'application [résolu]	Générer un login + vérifier son existence avant de l'enregistrer ?
Choix d'un répertoire avec JFileChooser [resolu]	[CAML] algo a comprendre - viendez tester lIA en meme temps
w3c : comment tester ses pages ?	OS-Unix : Tester si un fichier est un dossier
Tester un .htaccess sous winnt	[reglé]Text area et couleur de fond
Plus de sujets relatifs à : Tester l'existence d'un répertoire [REGLE !!!]

Page générée en 0.070 secondes