|
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | gennemgå mappe og undermapper Fra : MooreHojer |
Dato : 10-06-06 15:32 |
|
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?
På Forhånd Tak!
--
MooreHojer
| |
Neuhafen @ Neuhafen.~ (10-06-2006)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Neuhafen @ Neuhafen.~ |
Dato : 10-06-06 18:03 |
|
"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
| |
MooreHojer (10-06-2006)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : MooreHojer |
Dato : 10-06-06 18:30 |
|
> Prøv denne:
[SNIP]
Takker, det var lige præcis hvad jeg manglede...
--
MooreHojer
| |
![](/images/tree/0.gif) Ukendt (12-06-2006)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Ukendt |
Dato : 12-06-06 10:43 |
|
"MooreHojer" <simon@moorehojer.dk> skrev i en meddelelse
news:448b0192$0$15784$14726298@news.sunsite.dk...
>> Prøv denne:
>
> [SNIP]
>
> Takker, det var lige præcis hvad jeg manglede...
Det var da så lidt !!!!
Neuhafen
>
> --
> MooreHojer
| |
Jørn Andersen (10-06-2006)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Jørn Andersen |
Dato : 10-06-06 18:31 |
|
On Sat, 10 Jun 2006 19:02:35 +0200, "Neuhafen @ Neuhafen.dk"
<neuhafen@neuhafen.dk> wrote:
<snip>
>Falg = False
<snip>
> If Flag = False then
Husk at sætte Option Explicit, så opdager man stavefejl
Good luck!
--
Jørn Andersen,
Brønshøj
| |
![](/images/tree/0.gif) Ukendt (12-06-2006)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Ukendt |
Dato : 12-06-06 10:44 |
|
"Jørn Andersen" <jorn@jorna.dk> skrev i en meddelelse
news:ib0m82pnqp16o283srdt024atolihu0m8a@4ax.com...
> On Sat, 10 Jun 2006 19:02:35 +0200, "Neuhafen @ Neuhafen.dk"
> <neuhafen@neuhafen.dk> wrote:
>
> <snip>
>
>>Falg = False
> <snip>
>
>> If Flag = False then
>
> Husk at sætte Option Explicit, så opdager man stavefejl
UPS... Den var ikke go' !!!!
Neuhafen
>
> Good luck!
>
> --
> Jørn Andersen,
> Brønshøj
| |
|
|