"MooreHojer" <simon@moorehojer.dk> skrev i en meddelelse
news:448ad7cb$0$15785$14726298@news.sunsite.dk...
> Hej NG
>
> Er der nogen der kan pege mig i retningen af et script der kan liste alle
> filer (evt. også mapper) i en angiven mappe + i alle undermapperne?
Hej MooreHojer,
Prøv denne:
<html>
<head>
<title>FileSystemObject</title>
</head>
<body>
<%
'Først finder vi denne fil...
Dim DenneFil, DetteDir
DenneFil = Request.ServerVariables("Script_Name")
' Så finder vi stien til denne fil...
DetteDir = Server.MapPath(DenneFil)
' Vi skal nu oprette et objekter
Dim ObjFSO, ObjFile, ObjFileItem, ObjFolder, ObjFolderContents,
ObjSubFolders
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set ObjFile = ObjFSO.GetFile(DetteDir)
Set ObjFolder = ObjFile.ParentFolder
Set ObjFolderContents = ObjFolder.Files
RodKatalog = ObjFolder
' Alle Objekter er oprettet
Sub VisSti(objFolder)
Response.Write "<br><strong>" & objFolder & "</strong><br><br>"
Set Filer = objFolder.Files
For each Fil in Filer
Sti = Replace(objFolder, RodKatalog, "")
%>
<a href="<%Response.Write Sti & "\" & Fil.name%>">Vis</a>
<%
Response.Write objFolder & "\" & Fil.name & "<br>"
Next
Falg = False
For each SubFolder in objFolder.SubFolders
Set AntalSubFolders = SubFolder.SubFolders
Antallet = AntalSubFolders.Count
If Antallet>0 then
Flag = True
Set SubSubFolders = SubFolder
VisSti(SubSubFolders)
End if
If Flag = False then
Response.Write "<br><strong>" & SubFolder & "</strong><br><br>"
Set Filer=SubFolder.Files
For each Fil in Filer
Sti = Replace(SubFolder, RodKatalog, "")
%>
<a href="<%Response.Write Sti & "\" & Fil.name%>">Vis</a>
<%
Response.Write SubFolder & "\" & Fil.name & "<br>"
Next
End If
Next
End Sub
Response.Write "Viser alle filer i dette bibliotek og alle under biblioteker
!!!<br><br>"
VisSti (objFolder)
%>
</body>
</html>
Neuhafen
>
> På Forhånd Tak!
>
> --
> MooreHojer