Discussion :

[koKoTis]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[ced600]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[koKoTis]

Encore merci

oFl.Path renvoi aussi le nom du fichier

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[omen999]

J'avais mis FSO au lieu de oFSO

respect pédagogique de la notation hongroise

[ced600]

respect pédagogique de la notation hongroise

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

PS : Je me demande si c'était pas une blague et que c'est cela la notation hongroise ?