Discussion :

[jadey]

Boujour tout le monde
j'aimerai savoir s'il existe sous vb6 une fonction qui permet de tester si un chemin est valide ou non
je rencontre en fait des problemes en chargeant des photos (loadPicture) dont le chemin change de maniere dynamique, et j'aimerasi savoir si une telle chose existe (une fonction isPath) avant de jouer sur la gestion des erreurs (on error: resume)

[jmfmarques]

Dir

[Vince]

Dir

+1
exemple avec la fonction Dir()

Code :

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

1
2
3
4
5
If Dir(Me.txtRep.Text) <> "" Then
 msgbox "le dossier existe"
else
  msgbox "le dossier n'existe pas"
endif

tu peux aussi faire avec un FileSystemObject qui offre pas mal de fonctions pratiques, mais c'est plus lourd :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
 
if fso.fileexist("c:\test\truc.ini") then
...
 
ou
if fso.folderExist("c:\test\") then
...
 
set fso=nothing

--> ne pas oublier la référence à Microsoft Scripting runtime

[Phifi]

Et pour être précis, si tu parles de répertoire :

Code :

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

1
2
3
4
5
If Dir(Me.txtRep.Text, 16) <> "" Then
 msgbox "le dossier existe"
else
  msgbox "le dossier n'existe pas"
endif

(cela t'évite juste de rajouter des "\" à la fin du nom du dossier... enfin je le fais comme ça en tout cas)

[Jihnn]

... et pour encore plus de précision, le 16 est la constante vbDirectory ^^
C'est plus explicite ^^

[SfJ5Rpw8]

Et pour être précis, si tu parles de répertoire :

Code :

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

1
2
3
4
5
If Dir(Me.txtRep.Text, 16) <> "" Then
 msgbox "le dossier existe"
else
  msgbox "le dossier n'existe pas"
endif

(cela t'évite juste de rajouter des "\" à la fin du nom du dossier... enfin je le fais comme ça en tout cas)

d'abords pour mémoire pour le 16 on as la constante : vbDirectory ...
ensuite lorsqu'on ecrit :

Code :

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

dir("C:\toto",Vbdirectory)

le retour sera toto dans le cas ou c:\toto est un répertoire mais aussi si c:\toto est un fichier... pour tester si c'est bien un répertoire .. tu peu utiliser GetAttr.. ( voir aide en ligne , exemple sur dir.. ou la discussion )

[Phifi]

d'abords pour mémoire pour le 16 on as la constante : vbDirectory ...

Et oui, mais les vieilles syntaxes VB3 sont encore à l'honneur chez moi =)