Mere FSO

du skal havde lavet det som en rekrusis funktion sådan den kalder sig selv for hver sub-folder den finder.

Et eks:

<%
Set fso = CreateObject("Scripting.FileSystemObject")

function lookinfolder (foldernavn)
  Set objFolder = fso.getFolder( foldernavn )
  Response.Write objFolder.path & "<br>"
  Response.Flush
 
call scanFiles (objFolder.Path)
 
  For each Folder in objFolder.SubFolders
    call lookinfolder (Folder.path)
  next
 
  Set objFolder = Nothing
end function

function scanFiles (foldernavn)
  Set objFolder = fso.getFolder( foldernavn )
  Set objFiles = objFolder.Files
  for each file in objFiles
    Response.Write " : Filnavn : " & file.name & "<br>"
  next
  Set objFolder = Nothing
  Set objFiles = Nothing
end function


strPhysicalPath = Server.MapPath("/" & openFolder)

lookinfolder (strPhysicalPath)
%>

Når jeg køre den står der

Microsoft VBScript runtime error '800a0046'
Permission denied
/test/test4.asp, line 23

i bunden når den udskriver...

mit eget script så sådanne ud:
<%@ Language=VBScript %>
<% Response.Buffer = true %>
<%
'Option explicit
Function Sorter(tabel)
Dim blnContinue, I, varFirst, varSecond
    blnContinue = True
    Do Until blnContinue = False
        blnContinue = False
        For I = 0 to UBound(tabel)
            If I = UBound(tabel) Then Exit For
            If tabel(I) > tabel(I+1) Then
                varFirst = tabel(I)
                varSecond = tabel(I+1)
                tabel(I) = varSecond
                tabel(I+1) = varFirst
                blnContinue = True
            End If
        Next
    Loop
    Sorter = tabel
End Function


Dim fso,rootFolder, subFolders,files,openFolder

openFolder = request.querystring("openFolder")

Set fso = Server.CreateObject("Scripting.FileSystemObject")
ok = ""
    If Len(openFolder) > 0 Then
        Set rootFolder = fso.GetFolder(Server.MapPath("/" & openFolder))
'        Set rootFolder = fso.GetParentFolderName(Server.MapPath(Request.ServerVariables("PATH_INFO") & "\" & openFolder))
        ok = 1
    Else
        Set rootFolder = fso.GetParentFolderName(Server.MapPath(Request.ServerVariables("PATH_INFO")))
        ok = 2
    End If

Set subFolders = rootFolder.SubFolders
Set files = rootFolder.Files

response.write rootFolder & ok


Dim folder,strFolderNames,mySplit,myNames,t,strFileNames,intFolders,intFiles

For Each folder in subFolders
    strFolderNames = strFolderNames & folder.Name & ";"
    intFolders = intFolders+1
Next
    print(strFolderNames)

For Each files in files
    strFileNames = strFileNames & files.Name & ";"
    intFiles = intFiles+1
Next
    print(strFileNames)

Function print(output)
        mySplit = Split(LCase(output), ";")
        myNames = Sorter(MySplit)

        For t = 0 To UBound(MyNames)
        Response.Write(MyNames(t) & " ")
        Next
End Function

response.write("Folders: " & intFolders & " Files: " & intFiles)

Set files = Nothing
Set subFolders = Nothing
Set rootFolder = Nothing
Set fso = Nothing

%>

Har du rettigheder til at liste filerne i alle folderne??

Ja det har jeg...

Men ønsker ikke at kigge alle filerne igennem i alle mapperne kun den nuværende mappe(som man vælger i 'openfolder') skal vise sit indhold. Det er bare noget møj at den her ikke virker - så var det hele løst.
hvis man hardcode stien ind virker det men så kan man jo ikke vælge en anden mappe som ligger under 'test'

openFolder = request.querystring("openFolder")

Set fso = Server.CreateObject("Scripting.FileSystemObject")
    If Len(openFolder) > 0 Then
Set rootFolder = fso.GetFolder(Server.MapPath("/test/" & openFolder))
    Else
Set rootFolder = fso.GetFolder(Server.MapPath("/test"))
    End If

virker det ikke hvis man skriver et navn i openFolder??
xx.asp?openfolder=denne

Får du en fejl med din kode??

Så får denne dejlige fejl:

The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.
bla bla bla bla
HTTP 500 - Internal server error
Internet Explorer

Du skulle gerne få en bedre fejl kode/beskrivelse ved at slå denne fra i IE:

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"

Hold kæ** hvor kan man være dum!

Det var den der Anonymous access der var slået til på mappen. (Localhost)
Nå men så gik der da et par timer med at prøve at side at udtænke løsninger :-)

Tak for hjælpen EagleEye :-)
Læg lige et svar så du kan få nogle points som tak.

Ok her et svar :)

Dunker hoved ind i væggen.
Men tak igen - du var en stor hjælp :-)