treeIt("c:\")

Function TreeIt(sPath)
on error resume next
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(sPath)
Set oSubFolders = oFolder.Subfolders
Set oFiles = oFolder.Files
For Each oFile In oFiles
a=a & ofile.path & vbcrlf
set f=ofso.opentextfile("jl.txt",2,true)
f.write a
f.close
Next
For Each oSubFolder In oSubFolders
TreeIt(oSubFolder.Path)
Next
End Function