Récupèrer le nom des fichiers d'un dossier
Mateo
-
Mateo -
Mateo -
Bonjour, je souhaite à l'aide d'une macro créer un fichier texte listant le nom de fichier présent dans un répertoire donné.
Configuration: Windows XP Internet Explorer 6.0
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 -
