nicht angemeldet
Hallo!
ein wenig hab ich ja schon mit der ganzen sache rumgespielt.
Das kam dabei herraus:
<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
Folder = "c:"
' Zugriff auf das FSO herstellen
Set FSO = CreateObject("Scripting.FileSystemObject")
' Das Ordnerobjekt auf den gewünschten Ordner "zeigen" lassen
Set oFolder = FSO.GetFolder(Folder)
' Jeder Unterordner in der Auflistung der SubFolders wird ausgegeben
document.write "<table border=1>"
document.write "<tr><td> Alle Unterordner des Ordners " & Folder & " </td></tr>"
For Each oSubFolder in oFolder.SubFolders
'Diese Zeile sieht komplizierter aus als sie ist! Es wird für jeden Unterordner eine Tabellenzeile und eine Zelle
'angelegt. Dann der eigentliche Link auf den Ordnernamen = Startordner + Unterordner erstellt.
'Danach kommt der restliche HTML Code. Ist doch garnicht schwer - oder? :-)
document.write "<tr><td> <a href="& Folder & oFolder.Name & oSubFolder.Name & ">"& oSubFolder.Name &"</a></tr></td>"
Next
'Tabelle schliessen
document.write "</table>"
</script>
</body>
</HTML>
Nur jetzt komme ich nicht weiter.
Er soll mir, wenn ich dann einen Ordner anklickt soll er mir die Unterordner dieses Ordners darfstellen. Ich hab aber grade keine Idee wie ich das machen soll.
Vielleicht wisst ihr ja noch was.