A voir également:
- Récupérer les noms de fichiers d'un dossier
- Dossier appdata - Guide
- Comment récupérer les messages supprimés sur whatsapp - Guide
- Comment réduire la taille d'un fichier - Guide
- Impossible de supprimer un dossier - Guide
- Comment ouvrir un fichier epub ? - Guide
2 réponses
Bonjour,
C'est la fonction Dir qui est utilisée pour connaitre les fichiers présents dans un répertoire.
Voici un exemple
Sub list_directory()
Dim MyFile As String
MyFile = Dir("C:\TEST\*.XLS") ' Renvoie le nom de fichier avec l'extension indiquée
MsgBox MyFile
' Appelle de nouveau Dir sans argument pour renvoyer le
' fichier *.XLS suivant dans le même dossier.
Do
MyFile = Dir
'
MsgBox MyFile
Loop Until MyFile = ""
'
End Sub
Salut
C'est la fonction Dir qui est utilisée pour connaitre les fichiers présents dans un répertoire.
Voici un exemple
Sub list_directory()
Dim MyFile As String
MyFile = Dir("C:\TEST\*.XLS") ' Renvoie le nom de fichier avec l'extension indiquée
MsgBox MyFile
' Appelle de nouveau Dir sans argument pour renvoyer le
' fichier *.XLS suivant dans le même dossier.
Do
MyFile = Dir
'
MsgBox MyFile
Loop Until MyFile = ""
'
End Sub
Salut
Mateo
OK merci ;o)
