Kode der læser indhold af mappe og gør dette indhold til link

Her er lidt at starte på:

<%

If request.Querystring("dir") <> "" Then
  dir = "/" & request.Querystring("dir")
else
  dir = "/"
End if


Dim myFso
Set myFso = Server.CreateObject("Scripting.FileSystemObject")

Dim myFolder
Set myFolder = myFso.GetFolder(Server.MapPath(dir))

Dim SubFolders
Set SubFolders = myFolder.SubFolders

For Each folder in subFolders
    Response.Write "<a href='?dir=" & folder.Name & "'>" & folder.Name & "</a><br><br>"
Next

Dim files
Set files = myFolder.Files

For Each file in files
    Response.Write "<a href='" & file.Name & "'>" & file.Name & "</a><br><br>"
    Response.Write "Type: " & file.Type & "<br>"
    Response.Write "Size: " & file.Size & "<br>"
Next

Set files = Nothing
Set subFolders = Nothing
Set myFolder = Nothing
Set myFso = Nothing

%>

Det bliver en lidt rodet udskrift...

Det her er forhåbentlig bedre:

<%

If request.Querystring("dir") <> "" Then
  dir = "/" & request.Querystring("dir")
else
  dir = "/"
End if


Dim myFso
Set myFso = Server.CreateObject("Scripting.FileSystemObject")

Dim myFolder
Set myFolder = myFso.GetFolder(Server.MapPath(dir))

Dim SubFolders
Set SubFolders = myFolder.SubFolders

Response.Write "Foldere i mappen:<br><br>"

For Each folder in subFolders
    Response.Write "<a href='?dir=" & folder.Name & "'>" & folder.Name & "</a><br><br>"
Next

Dim files
Set files = myFolder.Files

Response.Write "Filer i mappen:<br><br>"

For Each file in files
    Response.Write "<a href='" & file.Name & "'>" & file.Name & "</a><br>"
    Response.Write "Type: " & file.Type & "<br>"
    Response.Write "Size: " & file.Size & "<br><br>"
Next

Set files = Nothing
Set subFolders = Nothing
Set myFolder = Nothing
Set myFso = Nothing

%>

lukker