here's the .asp code you requested:
<%
newpath = request.querystring("newpath")
' The following line is the only variable you need to change.
' MyFolder is the directory where parsing starts.
' To test this create a folder off of the root of your ASP enabled web site
' Put some sub folders and files in it and fire up this script in your browser
' Avoid using the characters like !@#$%^&*()+=
MyFolder = "\\server\folder"
folderspec = MyFolder & "/"
if newpath<>"" then
folderspec = folderspec & newpath & "/"
end if
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set folder = oFSO.GetFolder(server.mappath(folderspec))
Set subfolder = folder.subfolders
ShowPageHead = MyFolder & " Folders"
If newpath<>"" then
Pointer = instrrev(newpath,"/")
If Pointer>0 then
UpOneLevel = Left(newpath,Pointer-1)
ShowHead = ShowHead & "Up One Folder
"
Else
ShowHead = ShowHead & "Up One Folder
"
End If
End If
For Each newfolder in subfolder
If Instr(newfolder.name,"_") Then
Else
ShowFolders = ShowFolders & "" & newfolder.name & "
"
End If
Next
ShowCurrentFolders = "" & folder.name & ""
%>
| <%=ShowHead%> <%=ShowFolders%> |
<%
Response.Write ShowCurrentFolders & "
"
Set filelist = folder.files
For Each file in filelist
If Instr(file.name,"_") or Instr(file.name,".asp") Then
Else
response.write "
|