nicht angemeldet
Aber ich hab doch garkein ASP, kann auch keins Nutzen da ich keinen Webserver habe.
Ich hab ein Script das mir alle Unterordner eines Ordners anzeigt.
Und zwar genau immer von dem Ordner in dem sich auch das VBS file befindet. Also soll das Script jetzt ersmal auslesen in welchem Ordner es sich befindet und dann mit der Abfrage nach den Ordnern Starten.
<HTML>
<body>
<script Language="VBSCRIPT">
'Einfache HTML-Seite zur Demonstration, wie man mit VBA die Name der Unterordner eines Ordners ausliest
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
Pfad = ""
MsgBox Pfad
Folder = "E:"
' 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>