boucle qui liste les fichiers

Version imprimable

Bonjour, j'ai une boucle qui liste les fichiers d'un répertoire:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Set oFSO = CreateObject("Scripting.FileSystemObject") stRep = "C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier" If oFSO.FolderExists(stRep) Then For each oFl in oFSO.GetFolder(stRep).Files vrFchs = vrFchs & vbCrLf & oFl.Name Next End If Wscript.Echo vrFchs
J'ai deux questions:

1) Comment faire pour fouilller les sous répertoire ?

3) Comment afficher le chemin complet des fichiers ?

la ligne suivante te permet d'afficher le chemin complet d'un fichier :

Code:

vrFchs = vrFchs & vbCrLf & oFl.Path & "\" & oFl.Name

Bon j'avais envie de m'amuser un peu avec la récursivité :mrgreen: :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
dim vrFchs
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\Program Files\Microsoft Visual Studio 8"
 
'On va lister les répertoire et les sous répertoires avec une fonction récursive
If oFSO.FolderExists(stRep) Then
 vrFchs = ListeFichierDansRep (oFSO, stRep, vrFchs)
End If
 
'On écrit le résultat dans un fichier.
Set Ftxt =  FSO.createTextFile("c:\temp\toto.txt",true) 'true = ecrase le fichier s'il existe déjà.
Ftxt.writeline (vrFchs)
Ftxt.Close
 
'Affiche dans une box.
'Wscript.Echo vrFchs
 
 
 
Function ListeFichierDansRep (oFSO, stRep, vrFchs)
 
 'On récupère le répertoire.
 Set Folder = oFSO.GetFolder(stRep)
 
 'On récupère la liste des sous répertoire.
 Set SubFolders = Folder.Subfolders
 
 'Pour la mise en  forme du texte, les fichiers lister seront sous une ligne indiquant le répertorie courant.
 vrFchs = vrFchs & vbCrLf & vbCrLf & vbCrLf & "Répertoire : " & Folder.Path & "\" & Folder.Name
 
 'On parcours la liste des fichiers du répertoire courant.
 For each oFl in  Folder.Files
   vrFchs = vrFchs & vbCrLf & oFl.Name	
 Next
 
 'S'il y a des sous répertoires, on parcours la liste des sous répertoires.
 If SubFolders.count <> 0 Then
	For Each SubFolder in SubFolders
		'Pour chaque sous répertoire on appelle la fonction actuelle (c'est ça la récursivité).
		ListeFichierDansRep oFSO, SubFolder.Path, vrFchs
	Next
 End If
 
 'On venvois la liste construite.
 ListeFichierDansRep = vrFchs
End Function

23/01/2008, 13h04
koKoTis

Encore merci ;)

oFl.Path renvoi aussi le nom du fichier
23/01/2008, 13h45
ced600
Hum...
Je n'ai peut être pas bien regardé lorsque j'ai essayé path, j'avais l'impression qu'il n'y avais pas le nom du fichier.
Enfin pas grave, du moment que tu as ce que tu veux.

Je corrige un truc :
Code:

1 2 3 4 'On écrit le résultat dans un fichier. Set Ftxt = oFSO.createTextFile("c:\temp\toto.txt",true) 'true = ecrase le fichier s'il existe déjà. Ftxt.writeline (vrFchs) Ftxt.Close
J'avais mis FSO au lieu de oFSO :D
23/01/2008, 15h09
omen999

Citation:

J'avais mis FSO au lieu de oFSO

respect pédagogique de la notation hongroise ;)
23/01/2008, 15h11
ced600

Citation:

Envoyé par omen999

respect pédagogique de la notation hongroise ;)

Non non pas du tout juste des problèmes de copier-coller :mouarf:

PS : Je me demande si c'était pas une blague et que c'est cela la notation hongroise ?
23/01/2008, 15h16
omen999

Citation:

et que c'est cela la notation hongroise ?

http://fr.wikipedia.org/wiki/Notation_hongroise
et http://dominiquemaniez.developpez.com/Nothongroise/
23/01/2008, 16h08
ced600

lol

Ok je ne connaissais pas ce type de notation, et je n'ai pas forcément chercher à comprendre la notation des exemples.

Pas mal comme notation en faite.