Tester si fichier dans un dossier
moiced59
Messages postés
1145
Date d'inscription
Statut
Membre
Dernière intervention
-
moiced59 Messages postés 1145 Date d'inscription Statut Membre Dernière intervention -
moiced59 Messages postés 1145 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
voila je test si il y a des fichier dans un dossier mais je suis obliger de tester l'extension
exemple
if exist c:.....\*.xls
cela fonctionne si j'ai fichier excel
moi je veux tester tt les fichier j'ai donc essayer :
if exist c:.....\*
ou
if exist c:.....\*.*
mais en vain
avez vous une idee
voila je test si il y a des fichier dans un dossier mais je suis obliger de tester l'extension
exemple
if exist c:.....\*.xls
cela fonctionne si j'ai fichier excel
moi je veux tester tt les fichier j'ai donc essayer :
if exist c:.....\*
ou
if exist c:.....\*.*
mais en vain
avez vous une idee
A voir également:
- Tester si fichier dans un dossier
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Flash drive tester - Télécharger - Divers Utilitaires
- Fichier rar - Guide
7 réponses
Bonjour,
Voir si ça te convient.
A+
Function FichierExiste(F As String) As String
FichierExiste = Dir(F)
End Function
Sub ExempleAppel()
Dim Ret As String
Ret = FichierExiste("c:\Répertoir\NomFichier.*")
If Ret <> "" Then
MsgBox "le fichier " & Ret & " existe"
End If
End Sub
Voir si ça te convient.
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question