Herbers Excel-Forum - das Archiv

VBA: vollständigen Pfadnamen aller Dateien imOrder

Bild

Betrifft: VBA: vollständigen Pfadnamen aller Dateien imOrder
von: Christian

Geschrieben am: 22.04.2005 08:51:43
Hallo,
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
Bild

Betrifft: AW: VBA: vollständigen Pfadnamen aller Dateien imOrder
von: UweD

Geschrieben am: 22.04.2005 09:18:38
Hallo Christian

so dürfte es gehen:

Sub alle_Dateien_Verzeichnis() '
strPath = "C:\Temp\txt\" 'Pfad des Verzeichnisses ggf. anpassen
strExt = "*.txt"       'Dateiextension ggf. anpassen
Dim strFile As String
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
'Hier dein Teil
Call umwandeln(Name)
Call Speichern
strFile = Dir() ' nächste Datei
Loop
End If
End Sub

Gruß UweD
 Bild
Excel-Beispiele zum Thema "VBA: vollständigen Pfadnamen aller Dateien imOrder"
Ermitteln von Datei- und Pfadnamen Alle Dateien im Verzeichnis öffnen
Dateien listen 400 leere Textdateien anlegen
XL-Dateien in UserForm listen XL5/7-Dateien nach XL8 konvertieren
Dateien aus Listbox auslesen und öffnen Excel-Dateien eines Ordners listen
Alle Dateien ab einem bestimmten Datum listen Alle Dateien eines Verzeichnisses drucken