ES GEHT DOCH NICHT :(

[Waldgeist]

mh, irgendwie geht es doch noch nicht.
mein Aktueller Ordner ist irgendwie immer der Desktop obwohl die Datei von E:\ gestartet wird. Warum?

DIM FSO        ' Variable für den Zugriff auf das File System Object
DIM oFolder    ' Variable für den Ordner, in dem die Unterordner entstehen
DIM oSubFolder ' Variable für die Unterordner
DIM Folder     ' Variabel für den Ordner, in dem die Unterordner entstehen
DIM Pfad

Set objFSO    = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(".")

MsgBox objFolder.Path

Folder = objFolder

Set objFolder = Nothing
Set objFSO    = Nothing

' Zugriff auf das FSO herstellen
Set FSO     = CreateObject("Scripting.FileSystemObject")

Set oFolder = FSO.GetFolder(Folder)

document.write "<table border=1>"
    document.write "<tr><td> Alle Unterordner des Ordners " & Folder & " </td></tr>"
    For Each oSubFolder in oFolder.SubFolders

document.write "<tr><td> <a href="& Folder & oFolder.Name & oSubFolder.Name & "\VBS_exp2.htm >"& oSubFolder.Name &"</a></tr></td>"

Next

'Tabelle schliessen

document.write "</table>"

</script>
</body>
</HTML>