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
Picalausa François
"tijani sellami" <tijani a écrit dans le message de news:
Bonjour, je voudrais savoir comment tester l'existence d'un répertoire avec visual basic. Merci
Hello,
On peut le faire au travers de la fonction GetAttr: Private Function FolderExists(FilePath As String) As Boolean On Error Resume Next FolderExists = (GetAttr(FilePath) And vbDirectory) = vbDirectory End Function
-- Picalausa François
"tijani sellami" <tijani sellami@discussions.microsoft.com> a écrit dans le
message de news: 801D85D1-D391-4123-BDEA-E3B8079AA529@microsoft.com...
Bonjour,
je voudrais savoir comment tester l'existence d'un répertoire avec visual
basic.
Merci
Hello,
On peut le faire au travers de la fonction GetAttr:
Private Function FolderExists(FilePath As String) As Boolean
On Error Resume Next
FolderExists = (GetAttr(FilePath) And vbDirectory) = vbDirectory
End Function
"tijani sellami" <tijani a écrit dans le message de news:
Bonjour, je voudrais savoir comment tester l'existence d'un répertoire avec visual basic. Merci
Hello,
On peut le faire au travers de la fonction GetAttr: Private Function FolderExists(FilePath As String) As Boolean On Error Resume Next FolderExists = (GetAttr(FilePath) And vbDirectory) = vbDirectory End Function
-- Picalausa François
Jacques
Bonjour,
Autre exemple ...
Jacques
'fichier
Private Function FileExists(ByRef sFile As String) As Boolean
On Error Resume Next
FileExists = ((GetAttr(sFile) And vbDirectory) = 0 And Err.Number = 0)
End Function
' dossier
Private Function FolderExists(ByRef sFolder As String) As Boolean
On Error Resume Next
FolderExists = ((GetAttr(sFolder) And vbDirectory) = vbDirectory And
Err.Number = 0)
End Function
'utilisation :
MsgBox FileExists("c:test.txt")
"tijani sellami" <tijani a écrit dans le message de news:
Bonjour, je voudrais savoir comment tester l'existence d'un répertoire avec visual basic. Merci
Bonjour,
Autre exemple ...
Jacques
'fichier
Private Function FileExists(ByRef sFile As String) As Boolean
On Error Resume Next
FileExists = ((GetAttr(sFile) And vbDirectory) = 0 And Err.Number = 0)
End Function
' dossier
Private Function FolderExists(ByRef sFolder As String) As Boolean
On Error Resume Next
FolderExists = ((GetAttr(sFolder) And vbDirectory) = vbDirectory And
Err.Number = 0)
End Function
'utilisation :
MsgBox FileExists("c:test.txt")
"tijani sellami" <tijani sellami@discussions.microsoft.com> a écrit dans le
message de news:801D85D1-D391-4123-BDEA-E3B8079AA529@microsoft.com...
Bonjour,
je voudrais savoir comment tester l'existence d'un répertoire avec visual
basic.
Merci
