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
Ma source est une source .net et je pense comme lumesh, qu'il vaut mieux regarder dans la framework c'est souvent plus simple, Je connais pas les FSO car je suis en .net et je voulais trouver une methode pour faire ca et je me suis servis de vb sans rien d'autres
Pour ce qui est de la sub qui se transforme en function je vais rectifier ca :P
CanisLupus, pourquoi utiliser le FSO (threadé biensur sinon ca freeze l'applie) alors que le framework te donne tout ?!
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 !
Heu... je ne voudrais pas dénigrer mais ton code est un peu bancal.
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)
- Messages postés
-
88
- Date d'inscription
- jeudi 21 avril 2005
- Statut
- Membre
- Dernière intervention
- 13 juin 2013
1Cordialement
Malo
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... !
- Messages postés
-
6814
- Date d'inscription
- dimanche 15 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 13 octobre 2010
28try
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