return files in folder

Dj Kat · February 8th, 2006, 12:44 PM

Hi,

I need a script that writes all files and their locations.

Example:
I have the folder C:\Temp

Now I want all files to be displayed like this:

/folder1/image.jpg
/folder1/readme.txt
/folder2/anotherfile.exe
/folder2/subfolder/file.txt
/folder2/subfolder/subfolderInsubfolder/file.txt

thnx

__________________________________________________ ________
This is my junk I'm gona eat it

Steweb · February 8th, 2006, 07:52 PM

Hi Dj Kat !

Code:

<% 
Dim fso, sRoot 
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
 sRoot = "C:\Temp"'Server.MapPath("/")
 buildTree(sRoot) 
 Function buildTree(path)
   Dim dl, d, fl, f
   Set dl = fso.GetFolder(path).SubFolders 
     Response.Write "[list]"
     For Each d In dl
       Response.Write "<li>" & d.Name  "</li>"
       Response.Write "[list]"
   Set fl = fso.GetFolder(d.path).Files
     For Each f In fl
       Response.Write "<A HREF='"& Replace(f.path, sRoot, "") & "'"">" &_ 
       "<li>" & f.Name & "</A><br>"
     Next
   Set fl = Nothing

 Response.Write "</ul>"
 
 buildTree(d.Path)  
  Next

 Set dl = Nothing
   Response.Write "</ul>" 
 End Function 
 
Set fso = Nothing
%>

www.steweb.net

Dj Kat · February 9th, 2006, 04:23 AM

Thanx a lot this does exactly what I want

I made some adjustments to make it to my liking

Code:

<% 
Dim fso, sRoot 
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
 sRoot = "C:\Temp"'Server.MapPath("/")
 buildTree(sRoot) 
 Function buildTree(path)
   Dim dl, d, fl, f
   Set dl = fso.GetFolder(path).SubFolders 
     For Each d In dl
       'Response.Write  d.Name & "<br />"
   Set fl = fso.GetFolder(d.path).Files
     For Each f In fl
       Response.Write "\" & d.Name & "\"&f.Name & "<br />"
     Next
   Set fl = Nothing

 
 buildTree(d.Path)  
  Next

 Set dl = Nothing
   Response.Write "</ul>" 
 End Function 
 
Set fso = Nothing
%>

__________________________________________________ ________
This is my junk I'm gona eat it