---

Jeg har fundet en masse eksempler som består af en fil man ligger i en mappe
og kører den så får man vist filerne i den mappe.

Men jeg søger en funktion som gør netop dette blot skal den som vist herunde
kun liste alle de filer som ligger i alle de mapper (Mappe1, Mappe2, Mappe3
eller hvad de nu heder) og ikke kun i samme mappe som selve aspfilen ligger
?

/Mappe1/
/Mappe2/
/Mappe3/
/Mappe4/
/Mappe5/
/Mappe6/
filoversigt.asp

---

"Magnus" <arnason@email.dk> wrote in message
news:3c298f58$0$5494$edfadb0f@dspool01.news.tele.dk...
> Men jeg søger en funktion som gør netop dette blot skal den som vist
herunde
> kun liste alle de filer som ligger i alle de mapper (Mappe1, Mappe2,
Mappe3
> eller hvad de nu heder) og ikke kun i samme mappe som selve aspfilen
ligger


Prøv at kigge lidt på nedenstående funktion.
<%
Option Explicit


Dim count
count = 0
Function VisMapper( strStartmappe, count )
Dim objFS, Startmappe, Undermapper, Filer, Mappe, Fil, i
Set objFS = Server.CreateObject( "Scripting.FileSystemObject" )
Set Startmappe = objFS.GetFolder( strStartmappe )
Set Undermapper = Startmappe.SubFolders
Set Filer = Startmappe.Files
For Each Mappe in undermapper
For i = 0 to count
Response.write( "&#160&#160&#160" )
Next
Response.write( "-" & Mappe.name & "<br>")
VisMapper Mappe.path, count + 1
Next

For Each Fil in Filer
For i = 0 to count
Response.write( "&#160&#160&#160" )
Next
Response.write( "-" & Fil.name & "<br>" )
Next
End Function
%>


du skal blot specificere stien på den mappe hvor du ønsker at den skal
starte, f.eks.:

<%
VisMapper "c:\inetpub", count
%>

Eller hvis filen eksekveres i samme dir som mappen, skal du bruge:

<%
VisMapper Server.MapPath("mappenavn"), count
%>

--
Jakob Andersen

---

"Jakob Andersen" <jakob@effectus.dk> wrote in message
news:a0cg9v$ibt$1@news.cybercity.dk...
> Prøv at kigge lidt på nedenstående funktion.


Fyha, jakob du glemte vist at rydde op

Funktionen skal se sådan her ud:

<%
Dim count
count = 0
Function VisMapper( strStartmappe, count )
Dim objFS, Startmappe, Undermapper, Filer, Mappe, Fil, i
Set objFS = Server.CreateObject( "Scripting.FileSystemObject" )
Set Startmappe = objFS.GetFolder( strStartmappe )
Set Undermapper = Startmappe.SubFolders
Set Filer = Startmappe.Files
For Each Mappe in undermapper
For i = 0 to count
Response.write( "&#160&#160&#160" )
Next
Response.write( "-" & Mappe.name & "<br>")
VisMapper Mappe.path, count + 1
Next

For Each Fil in Filer
For i = 0 to count
Response.write( "&#160&#160&#160" )
Next
Response.write( "-" & Fil.name & "<br>" )
Next
Set objFS = Nothing
Set Startmappe = Nothing
Set Undermapper = Nothing
Set Filer = Nothing
End Function
%>

---

"Jakob Andersen" <jakob@effectus.dk> wrote in message
news:a0cged$igr$1@news.cybercity.dk...
> Fyha, jakob du glemte vist at rydde op

Jeg legede lige lidt mere, her er en lidt mere "dynamisk" udgave:

<http://www.advice.dk/jakob/stifinder/Default.asp>

--
Jakob Andersen