Dim fso, sRoot 
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
sRoot = 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

     %>