Filoversigt + mapper

directoryname="c:\windows\"
Set fso = CreateObject("Scripting.FileSystemObject")
set mainfolder=fso.GetFolder(directoryname)
Set foldercollection = mainfolder.SubFolders
For Each folder In foldercollection
      Response.Write folder.Name
Next

Prøv med det her:

<% strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
Set objSubFolders = objFolder.SubFolders

For Each objFolder in objSubFolders
    Response.write "<a href="
    Response.Write(objFolder.Name)
    response.write ">"
    Response.Write(objFolder.Name & "<br>")
    Response.write "</a>"
Next

For Each objFileItem in objFolderContents
    Response.write "<a href="
    Response.Write(objFileItem.Name)
    response.write ">"
    Response.Write(objFileItem.Name & "<br>")
    Response.write "</a>"
Next %>


Som du kan se, giver objFolder.SubFolders dig de undermapper, der findes i den mappe, du befinder dig i.

/Martin Sommer
www.magik.dk

--> sys64738, der vises ingen filer...

--> magik, kunne du ikke lave det sådan at når den begynder på filer, så laver den lige en <br>?? Eller såiger jeg tak for koden!

/jsc

Den sætter du bare ind mellem de to For Each du har  :)

Altså:

For Each objFolder in objSubFolders
    Response.write "<a href="
    Response.Write(objFolder.Name)
    response.write ">"
    Response.Write(objFolder.Name & "<br>")
    Response.write "</a>"
Next

Response.Write("<br>") '<----

For Each objFileItem in objFolderContents
    Response.write "<a href="
    Response.Write(objFileItem.Name)
    response.write ">"
    Response.Write(objFileItem.Name & "<br>")
    Response.write "</a>"
Next

/Martin Sommer

hmm, derfor....

jeg lavede kun Response.Write "<br>"

hmm, jeg kommer lige til at se: hvis jeg nu har nogle mapper med mellemrum, kan man så lave den om så linket bliver: mappe%20med%20mellemrum ??

Ja, det kan du godt. Problemet skyldes at du ikke har anførselstegn rundt om dine links. Prøv med:

For Each objFolder in objSubFolders
    Response.write "<a href="""
    Response.Write(objFolder.Name)
    response.write """>"
    Response.Write(objFolder.Name & "<br>")
    Response.write "</a>"
Next

i stedet for det du har nu  :)

Yes - det virker sku' mange tak for hjælpen!

Point til dig!

/jsc

selv tak  :)