<% Dim sServerURL, sStartingFoldName sStartingFoldName = "c:\inetpub\wwwroot\forms" sServerURL = "http://173.162.218.225/forms/" 'Base path to directory as defined by IIS Dim oFileSystemObject, oFolder, oFolderCollection, oWorkingFolder Dim oFile, oFileCollection, oWorkingFile Function ShowFolderStructure(sPassedFolderName, sCumulativePath) Set oFileSystemObject = Server.CreateObject("Scripting.FileSystemObject") If oFileSystemObject.FolderExists(sPassedFolderName) Then Set oFolder = oFileSystemObject.GetFolder(sPassedFolderName) if sCumulativePath = "" then Response.write("
" & oFolder.name) else Response.write("
" & oFolder.name) end if Set oFolderCollection = oFolder.SubFolders For Each oWorkingFolder in oFolderCollection if oWorkingFolder.name <> "UserImport" then ShowFolderStructure oWorkingFolder.path, sCumulativePath & oWorkingFolder.name & "/" end if Next Set oFileCollection = oFolder.Files For Each oWorkingFile in oFileCollection Response.write("
" & oWorkingFile.name & "
") Next Response.write("
") End If End Function 'ShowFolderStructure sStartingFoldName, "" 'moved to markup area %>
<% ShowFolderStructure sStartingFoldName, "" %>