cs_ghuysmans99
Messages postés3982Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 25 janv. 2008 à 17:44
Dim
FSO 'As Object 'New Scripting.FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
Public Sub ListDirs(root)
Dim File 'As Object 'Scripting.File
Dim Dir 'As Object 'Scripting.Folder
For Each File In FSO.GetFolder(root).Files
Response.Write File.Name
DoEvents
Next
For Each Dir In FSO.GetFolder(root).SubFolders
ListDirs Dir.Path
DoEvents
Next
End Sub ,