Bonjour,

J'ai un dossier c:\test\
je veux recuperer ( dans fichier text) les noms de tous les sous dossiers et aussi les fichiers d'extension .txt dans chaque sous dossier . comme :
dossier fichier
c:\test\dossier1 A.txt;B.txt;C.txt

c:\test\dossier2 Z.txt;d.txt

Merci d'avance.
J'ai essayé le code suivant mais ça marche pas bien
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
 
 
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objmyFolder = objFso.GetFolder("D:\Test")
 
Const ForReading = 1, ForWriting = 2
  Set WshShell = WScript.CreateObject("WScript.Shell")
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("D:\file_folder.txt", ForWriting,true)
   f.write("Dossier")
   f.write  vbTab &("Fichier")& vbCrlf
 
ListDirectory objMyFolder
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Sub ListDirectory(objFolder)
 
 For Each objSubFolder In objFolder.SubFolders
    f.write  objSubFolder.Name  & vbTab 
    ListDirectory(objSubFolder )
 
    For Each objFile In  objFolder.Files
       If UCase(FSO.GetExtensionName(objfile.Path)) = "TXT" Then
 
           f.write objFile.Name
	   f.write(";")
       end if
    Next
 
   f.write ("") & vbCrlf 
 Next
End Sub