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
François Picalausa
Bonjour/soir,
Tu peux essayer ceci: Private Function FolderExists(Path As String) As Boolean On Error Resume Next FolderExists = (GetAttr(Path) And vbDirectory) End Function
Il existe aussi une API PathIsDirectory qui est limitée à un path de MAX_PATH (260) caractères
Bonjour, je voudrais savoir comment faire pour tester si des repertoires existes et si il n'existe pas, creer ces repertoires. merci
Bonjour/soir,
Tu peux essayer ceci:
Private Function FolderExists(Path As String) As Boolean
On Error Resume Next
FolderExists = (GetAttr(Path) And vbDirectory)
End Function
Il existe aussi une API PathIsDirectory qui est limitée à un path de
MAX_PATH (260) caractères
Tu peux essayer ceci: Private Function FolderExists(Path As String) As Boolean On Error Resume Next FolderExists = (GetAttr(Path) And vbDirectory) End Function
Il existe aussi une API PathIsDirectory qui est limitée à un path de MAX_PATH (260) caractères
Bonjour, je voudrais savoir comment faire pour tester si des repertoires existes et si il n'existe pas, creer ces repertoires. merci
Zoury
Salut Martin! :O)
' Test l'existence d'un fichier Private Function FileExists(ByRef sFile As String) As Boolean On Error Resume Next FileExists = ((GetAttr(sFile) And vbDirectory) = 0) End Function
' Test l'existence d'un répertoire Private Function FolderExists(ByRef sFolder As String) As Boolean On Error Resume Next FolderExists = ((GetAttr(sFolder) And vbDirectory) = vbDirectory) End Function
' Test l'existence d'un lecteur Public Function DriveExists(ByRef sDrive As String) As Boolean On Error Resume Next DriveExists = LenB(CurDir$(sDrive)) > 0 End Function
' Créer un répertoire Call MkDir("C:MonRepertoire")
Merci de poster les réponses au groupe afin d'en faire profiter à tous
Salut Martin! :O)
' Test l'existence d'un fichier
Private Function FileExists(ByRef sFile As String) As Boolean
On Error Resume Next
FileExists = ((GetAttr(sFile) And vbDirectory) = 0)
End Function
' Test l'existence d'un répertoire
Private Function FolderExists(ByRef sFolder As String) As Boolean
On Error Resume Next
FolderExists = ((GetAttr(sFolder) And vbDirectory) = vbDirectory)
End Function
' Test l'existence d'un lecteur
Public Function DriveExists(ByRef sDrive As String) As Boolean
On Error Resume Next
DriveExists = LenB(CurDir$(sDrive)) > 0
End Function
' Créer un répertoire
Call MkDir("C:MonRepertoire")
' Test l'existence d'un fichier Private Function FileExists(ByRef sFile As String) As Boolean On Error Resume Next FileExists = ((GetAttr(sFile) And vbDirectory) = 0) End Function
' Test l'existence d'un répertoire Private Function FolderExists(ByRef sFolder As String) As Boolean On Error Resume Next FolderExists = ((GetAttr(sFolder) And vbDirectory) = vbDirectory) End Function
' Test l'existence d'un lecteur Public Function DriveExists(ByRef sDrive As String) As Boolean On Error Resume Next DriveExists = LenB(CurDir$(sDrive)) > 0 End Function
' Créer un répertoire Call MkDir("C:MonRepertoire")
