AW: Verzeichnisse lesen
14.10.2005 15:15:32
Wolfgang
Tja, die Antwort habe ich mir jetzt selbst gegeben. Hat jetzt zwar ein weilchen gedauert, aber letztendlich geht der Punkt an mich.
Sub test()
ShowFolderList ("Kompletter Pfad des aufzulistenden Ordners")
End Sub
Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.subfolders
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub
Das Beispiel steht fast so in der Excel-Hilfe. Nur 1. findet man es nicht (Kompliment an Microsoft) und 2. ist das Objekt f.files mit f.subfolders zu ersetzten (weiters Kompliment an Microsoft). Dann mach das Beispiel genau das, was im Hilfetext dazu geschrieben steht.
@Christian
Ich kann die leider kein komplettes beispiel schreiben, aber die Dateiendungen lassen sich mit der Funktion GetExtensionName(Pfad) bestimmmen. Damit dürfte es dann auch ein leichtes sein, mit left() vom Pfad abzuziehen. Zufälligerweise sind nicht alle Extensions 4 Zeichen lang!
So und bevor sich Köbi wieder beklagt, schönes Wochenende an alle die hier reinschauen.