VBA: vollständigen Pfadnamen aller Dateien imOrder
22.04.2005 08:51:43
Christian
in einem Ordner befinden sich viele Textdateien auf denen ich ein Makro (=umwandeln) anwenden möchte. Dafür braucht der Makro als Übergabeparameter den vollständigen Pfad- und Dateinamen. Zum Beispiel: "C:\temp\txt\99.txt".
Mit dem FileSystemObject kann ich jede Datei des Verzeichnisses durchlaufen. Nur wie bekomme ich den vollständigen Namen in den Makroaufruf?
Public FSO As FileSystemObject
Sub starten()
Dim Datei As File
Dim Verzeichnis As Folder
Set FSO = New FileSystemObject
Set Verzeichnis = FSO.GetFolder("C:\temp\txt")
For Each Datei In Verzeichnis.Files
Call umwandeln(NAME)
Call Speichern
Tabelle1.Activate
Next
End Sub
MfG
Christian