Vis filer og undermapper i bestemt mappe

Hej Lund!

Find filerne i en bestem mappe:

<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\test\")
for each x in fo.files
  'Print the name of all files in the test folder
  Response.write(x.Name & "<br />")
next
set fo=nothing
set fs=nothing
%>

Find subfolders:

<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\test\")
for each x in fo.SubFolders
  'Print the name of all subfolders in the test folder
  Response.write(x.Name & "<br />")
next
set fo=nothing
set fs=nothing
%>

http://www.w3schools.com/asp/asp_ref_folder.asp

Og skulle vi så lige lave en mixer, hvor vi tager mapperne først, dernæst filerne kan vi jo lave følgende script:

<%
'*********************************
' Vi udskriver først undermapperne
'*********************************
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(Server.Mappath("\dinmappe\"))
for each x in fo.SubFolders
'Udskriv navnet på mappen
Response.write "<a href=""" & x.Name & """>" & X.Name & "</a><br />"
next
set fo=nothing
set fs=nothing

'*********************************
' Så finder vi filerne i mappen
'*********************************

dim fs1,fo1,x1
set fs1=Server.CreateObject("Scripting.FileSystemObject")
set fo1=fs1.GetFolder(Server.Mappath("\dinmappe\"))
for each x1 in fo1.files
'Udskriv navnene på mappen i mappen
Response.write(x1.Name & "<br />")
next
set fo1=nothing
set fs1=nothing
%>

:)

Den holder desværre ikke. For så skal filen uploades i alle undermapper også..
http://www.lundwebdesign.net/bil.asp

:)

Nå da da, du kunne jo bare have sagt, at det kun skulle være styring fra én fil :)

Nu står der jo på din salgshjemmeside, at du udbyder ASP, så regner med du forstår lidt af det i eksemplet. Det navn du giver filen skal der også stå i 2 linie, så hvis du kalder filen for filstruktur, så skal du skrifte test.asp ud med filstruktur.asp.

Jah, server.mappathen kender du vist også. Men altså, specificer startmappen i linie 7 og så er det ellers bare derudaf ;I

<%
Filnavn = "test.asp?mappe="

If Request.Querystring("mappe") > "" Then
MappeStruktur = Request.Querystring("mappe")
Else
MappeStruktur = "dinmappe\"
End If

'*********************************
' Vi udskriver først undermapperne
'*********************************
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(Server.Mappath("\" & MappeStruktur))
for each x in fo.SubFolders
'Udskriv navnet på mappen
Response.write "<a href=""" & Filnavn & MappeStruktur & x.Name & "\" & """>" & X.Name & "</a><br />"
next
set fo=nothing
set fs=nothing

'*********************************
' Så finder vi filerne i mappen
'*********************************

dim fs1,fo1,x1
set fs1=Server.CreateObject("Scripting.FileSystemObject")
set fo1=fs1.GetFolder(Server.Mappath("\" & MappeStruktur))
for each x1 in fo1.files
'Udskriv navnene på mappen i mappen
Response.write(x1.Name & "<br />")
next
set fo1=nothing
set fs1=nothing
%>