Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Xav
salut,
si c vb6 : if dir(CheminRepertoire,vbdirectory)<>"" then msgbox "rep existe"
si cd vb.net:
if io.directory.exist(cheminRepertoire) then msgbox("rep existe")
oila
a++
xavier
"seb" a écrit dans le message de news:06a101c35d8b$af6decc0$ Comment tester l'existence d'un répertoire. J'ai essayé avec getattr mais ca ne marche pas quand le répertoire n'existe pas.
Merci d'avance
salut,
si c vb6 :
if dir(CheminRepertoire,vbdirectory)<>"" then msgbox "rep existe"
si cd vb.net:
if io.directory.exist(cheminRepertoire) then msgbox("rep existe")
oila
a++
xavier
"seb" <sebastanguy@aol.com> a écrit dans le message de
news:06a101c35d8b$af6decc0$a501280a@phx.gbl...
Comment tester l'existence d'un répertoire.
J'ai essayé avec getattr mais ca ne marche pas quand le
répertoire n'existe pas.
si c vb6 : if dir(CheminRepertoire,vbdirectory)<>"" then msgbox "rep existe"
si cd vb.net:
if io.directory.exist(cheminRepertoire) then msgbox("rep existe")
oila
a++
xavier
"seb" a écrit dans le message de news:06a101c35d8b$af6decc0$ Comment tester l'existence d'un répertoire. J'ai essayé avec getattr mais ca ne marche pas quand le répertoire n'existe pas.
Merci d'avance
François Picalausa
Bonjour/soir,
Function DirectoryExists(strPath AS String) As Boolean On error resume Next DirectoryExists = (GetAttr(strPath) And vbDirectory) = vbDirectory End Function
Ne pas utiliser Dir parce qu'il emploie un seul buffer pour toute l'application et il sera donc réinitialisé...
"seb" a écrit dans le message de news:06a101c35d8b$af6decc0$
Comment tester l'existence d'un répertoire. J'ai essayé avec getattr mais ca ne marche pas quand le répertoire n'existe pas.
Merci d'avance
Bonjour/soir,
Function DirectoryExists(strPath AS String) As Boolean
On error resume Next
DirectoryExists = (GetAttr(strPath) And vbDirectory) = vbDirectory
End Function
Ne pas utiliser Dir parce qu'il emploie un seul buffer pour toute
l'application et il sera donc réinitialisé...
Function DirectoryExists(strPath AS String) As Boolean On error resume Next DirectoryExists = (GetAttr(strPath) And vbDirectory) = vbDirectory End Function
Ne pas utiliser Dir parce qu'il emploie un seul buffer pour toute l'application et il sera donc réinitialisé...