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

Beiträge aus den Excel-Beispielen zum Thema "VBA: vollständigen Pfadnamen aller Dateien imOrder"