*********************** STOP HERE & READ! **************************
if you have a weak stomach you do NOT want to scroll down. leave this page now! just to warn you what is below....well, did you ever see that show 'jackass' on mtv? let's just say these are the guys, and girls, that watched that show a bit too much. to give you an idea, they had a little contest to see who could drink a gallon of milk the fastest.
little hint - the human body can't physically drink that much in a short period of time.
enough said.........you've been warned!
*******************READ ABOVE BEFORE SCROLLING********************
<% ListFolderContents(Server.MapPath("1")) %>
<% ListFolderContents(Server.MapPath("2")) %>
<% sub ListFolderContents(path)
dim fs, folder, file, item, url
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
'Display the target folder and info.
' *************I'm commenting this OUT
' Response.Write("
" & folder.Name & " - " _
' & folder.Files.Count & " files, ")
' if folder.SubFolders.Count > 0 then
' Response.Write(folder.SubFolders.Count & " directories, ")
' end if
' Response.Write(Round(folder.Size / 1000) & " KB total." _
' & "" & vbCrLf)
Response.Write("
" & vbCrLf)
' *************I'm commenting this OUT
' *********************************************************************
'Display a list of sub folders. Uncomment the three lines below
' *********************************************************************
' for each item in folder.SubFolders
' ListFolderContents(item.Path)
' next
' *********************************************************************
'Display a list of files.
' *********************************************************************
for each item in folder.Files
url = MapURL(item.path)
Response.Write("
![]() " _
& "" & vbCrLf)
next
Response.Write(" | " & vbCrLf)
end sub
function MapURL(path)
dim rootPath, url
' *********************************************************************
'Convert a physical file path to a URL for hypertext links.
' *********************************************************************
rootPath = Server.MapPath("/")
url = Right(path, Len(path) - Len(rootPath))
MapURL = Replace(url, "\", "/")
end function
%>