LISTER TOUS LES FICHIERS D'UN REPERTOIRE ET SOUS REPERTOIRE
lumesh
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008
-
4 janv. 2004 à 11:31
malo777 Messages postés 88 Date d'inscription jeudi 21 avril 2005 Statut Membre Dernière intervention 13 juin 2013 - 14 déc. 2009 à 16:26
malo777 Messages postés 88 Date d'inscription jeudi 21 avril 2005 Statut Membre Dernière intervention 13 juin 2013 - 14 déc. 2009 à 16:26
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/19249-lister-tous-les-fichiers-d-un-repertoire-et-sous-repertoire
https://codes-sources.commentcamarche.net/source/19249-lister-tous-les-fichiers-d-un-repertoire-et-sous-repertoire
14 déc. 2009 à 16:26
Cordialement
Malo
19 oct. 2006 à 09:13
5 juil. 2004 à 00:35
dim arrlist as filesysteminfo() ' matrice de fichiers
dim i as integer
...
Dim dirpathInfo As New DirectoryInfo(path) 'remplacez path par votre
'chemin
arrFile = dirpathInfo.GetFileSystemInfos()
' on récupère l'ensemble des fichiers du répertoire dans la matrice
For i = 0 To arrFile.GetLength(0) - 1
'on parcourre la matrice. Dans mon cas seuls les fichiers du répertoire m'intéressent sinon il faut travailler sur plusieurs dimensions. Chaque dimension représentant un sous répertoire avec ses fichiers
lstFiles.Items.Add(arrFile(i).Name)
'ici vous placez votre code de récup. dans mon cas, je remplis une listbox avec le nom de chaque fichiers
Next
et voilà, c'est dans la boite... !
20 févr. 2004 à 18:04
try
Dim LogStream As New StreamWriter(Fichier & ".log", True, System.Text.Encoding.UTF8)
for each s as string in listefichier
LogStream.WriteLine(s )
next
catch
'erreur, impossible d'ecrire dans le fichier
finally
LogStream.Close()
end try
Voila je sais que CanisLupus a ecrit aussi qqchose mais je sais pas si ca marche :p
20 févr. 2004 à 18:04
try
Dim LogStream As New StreamWriter(Fichier & ".log", True, System.Text.Encoding.UTF8)
for each s as string in listefichier
LogStream.WriteLine(s )
next
catch
'erreur, impossible d'ecrire dans le fichier
finally
LogStream.Close()
end try
Voila je sais que CanisLupus a ecrit aussi qqchose mais je sais pas si ca marche :p
20 févr. 2004 à 17:24
http://www.vbfrance.com/code.aspx?ID=20539
Pour mettre les résultats dans un fichier texte c simple :
Avant la boucle où il y a Add ou additem, on ouvre un fichier texte :
open Fichier.txt for output as #1
et à la place du add ou additem, tu mets
print #1, fichier.Name ou print #1 fc.name (suivant l'exemple choisi)
et tu termines par un close #1
20 févr. 2004 à 16:51
Searit il trop demande pour un débutant comme moi de mettre le résultat, c'est à dire tout les fichiers avec leur chemin dans un fichier texte.
Merci d'avance
15 janv. 2004 à 18:35
Pour ce qui est de la sub qui se transforme en function je vais rectifier ca :P
15 janv. 2004 à 09:18
14 janv. 2004 à 22:34
Perso je remplace un max d'API de de functions style FSO (ou dans le meem genre) via le framework !!
C'est un conseil perso, mais matez d'abord le framework, il y a des choses plus qu'interressante dedans !
14 janv. 2004 à 21:32
Commencer par un private sub et finir par end function, déjà c bizarre. C pas du VB ça.
Tu as mal dû recopier ton code, sinon, indique moi dans quel langage c écrit.
Maintenant, si tu veux plus simple cherche du côté FileSystemObject.
Un chtit exemple pour lister les dossiers :
Tu copies ça dans une form où tu as mis un ctrl listbox(list1) et tu exécutes.
Cela dit, c qu'une piste et c pas garanti que ce soit rapide.
Private Sub Form_Load()
Dim fso, f, fc
Dim racine
racine = "c:"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(racine)
For Each fc In f.SubFolders
List1.AddItem fc.Name
Next
Set fso = Nothing
End Sub
Cordialement
5 janv. 2004 à 06:05
4 janv. 2004 à 11:42
4 janv. 2004 à 11:31
Dim Liste() as String
Dim Chemin as String = "C:"
Dim Pattern as String = "*.*"
Liste = System.IO.Directory.GetFileSystemEntries(Chemin, Pattern)