ups! glemte vist lige koden! *SS*
Set FS = Server.CreateObject(\"Scripting.FilesystemObject\")
If Request.QueryString(\"sti\") = \"\" Then
Mappath = \"C:\\\"
\' Mappath = Replace(Server.Mappath(\"filer.asp\"),\"\\filer.asp\",\"\")
Else
Mappath = Replace(Replace(Request.QueryString(\"sti\"),\"~\",\"\\\"),\"+\",\" \")
End if
Set F = FS.Getfolder(Mappath)
Set AlleDrev = FS.Drives
For Each Drev In AlleDrev
Response.Write \"<img src=\'gfx/drev.gif\'> <a href=java script:skift(\'list.asp?sti=\"& Drev.Driveletter &\":\\\\\',\'filer.asp?sti=\"& Drev.Driveletter &\":\\\\\')>\"& Drev.Driveletter &\":\\</a><br>\"
Next
Stien = Split(Mappath,\"\\\")
Drevbogstav = UCase(Left(Mappath,3))
If Not F.IsRootFolder Then
Response.Write \"<a href=java script:skift(\'list.asp?sti=\"& Replace(Replace(F.ParentFolder,\"\\\",\"~\"),\" \",\"+\") &\"\',\'filer.asp?sti=\"& Replace(Replace(F.ParentFolder,\"\\\",\"~\"),\" \",\"+\") &\"\')><img src=\'gfx/minus.gif\'> ..</a><br>\"
End if
For Each Bibliotek In F.Subfolders
Response.Write \"<img src=gfx/spacer.gif width=10 height=10><img src=\'gfx/hjoerne.gif\'> <img src=\'gfx/plus.gif\'> <img src=\'gfx/mappe.gif\'> <a href=java script:skift(\'list.asp?sti=\"& Replace(Replace(Bibliotek,\"\\\",\"\\\\\"),\" \",\"+\") &\"\',\'filer.asp?sti=\"& Replace(Replace(Bibliotek,\"\\\",\"\\\\\"),\" \",\"+\") &\"\')>\"& Bibliotek.Name &\"</a><br>\"
Next
%>
