Lister tous les fichiers d'un répertoire
Adrien
-
3 janv. 2001 à 02:46
unrealgun Messages postés 87 Date d'inscription mardi 16 décembre 2003 Statut Membre Dernière intervention 4 mars 2008 - 25 juil. 2005 à 00:23
unrealgun Messages postés 87 Date d'inscription mardi 16 décembre 2003 Statut Membre Dernière intervention 4 mars 2008 - 25 juil. 2005 à 00:23
A voir également:
- Lister tous les fichiers d'un répertoire
- Vscode rechercher dans tous les fichiers - Forum VB.NET
- Petites boîtes de fichiers - Forum VBScript (VBS)
- Repertoire des installations ✓ - Forum C# / .NET
- Séparateurs de fichiers - Forum Delphi / Pascal
- Python lister les fichiers d'un dossier ✓ - Forum Python
3 réponses
Tu peux utiliser une FileListBox pour lister tout les fichiers d'un répertoire ( après tu appliques les méthodes FileListBox.List(i) ou i évoluera entre 0 et FileListBox.ListCount .)
Pour les répertoires, c'est plus délicat, je l'avais fais il y a longtemps et je peux recherchercher si tu le souhaites.
[Hawk]
Pour les répertoires, c'est plus délicat, je l'avais fais il y a longtemps et je peux recherchercher si tu le souhaites.
[Hawk]
Salut !
C'est gentil, et si tu as le temps, je veux bien que tu me dises pour les répertoires. MERCI beaucoup pour la méthode que tu m'as déjà donnée, çà me convient tout à fait pour les fichiers :o)
C'est gentil, et si tu as le temps, je veux bien que tu me dises pour les répertoires. MERCI beaucoup pour la méthode que tu m'as déjà donnée, çà me convient tout à fait pour les fichiers :o)
unrealgun
Messages postés
87
Date d'inscription
mardi 16 décembre 2003
Statut
Membre
Dernière intervention
4 mars 2008
25 juil. 2005 à 00:23
25 juil. 2005 à 00:23
Bonjour, j'ai des moyens plus propre
sub Lister_fichier(byval Directory as string)
dim FSO as object
set fso=createobject(scripting.filesystemobject)
dim File
for each File in fso.getfolder(directory).files
file.name est el nom de chacun des fichiers du dossier :)
next
end sub
pour lister les sous-dossiers, vous utilizez FOLDER a la place de FILE :)
a+
sub Lister_fichier(byval Directory as string)
dim FSO as object
set fso=createobject(scripting.filesystemobject)
dim File
for each File in fso.getfolder(directory).files
file.name est el nom de chacun des fichiers du dossier :)
next
end sub
pour lister les sous-dossiers, vous utilizez FOLDER a la place de FILE :)
a+