Directory Listing
Ja, så er jeg her igen.Jeg har "tyvstjålet" (Med tilladelse) dette lille script. Men jeg har lige lidt proglemer. Det er noget med virtuel path kontra fysisk path. I denne linie:
ListFolderContents(Server.MapPath("C:\Documents and Settings\Poul-Henning\Dokumenter\Musik"))
henvises til en fysisk mappe. Men det virker ikke. Derimod virker det hvis der indsættes en virtuel mappe. Hvordan henvirser jeg til en fysisk mappe.
Hele scriptet er her:
<%
ListFolderContents(Server.MapPath("C:\Documents and Settings\Poul-Henning\Dokumenter\Musik"))
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.
Response.Write("<form action='default.asp?view=includes+mp3upload&action=showfiles' method='post' enctype='text/plain'><input type='radio' name='dir' value='" & folder.Name & "'> <b>" & folder.Name & "</b> - " _
& folder.Files.Count & " files, ")
if folder.SubFolders.Count > 0 then
Response.Write(folder.SubFolders.Count & " directories, ")
end if
Response.Write(Round(folder.Size / 1024) & " KB total." _
& vbCrLf)
Response.Write("<br><br><input type='submit' value='Select Dir'></form>" & 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 %>
<%
