Geänderte Dateinamen aller Art zurückspeichern
28.11.2003 17:39:50
Tommy
ich habe in Spalte A alle Namen aus einem ganz bestimmten Verzeichnis incl. Dateiendung aufgelistet. Nun möchte ich alle Namen Verändern (dies muss manuell in Spalte B geschehen, da keine Einheitliche Veränderung gefunden werden kann) und diese NEUEN Namen aus Spalte B wieder zurückspeichern, so das am Ende die ursprünglichen Dateinamen verändert worden sind. Ein Makro welches ich im Forum-Archiv gefunden habe funktioniert leider nicht.
Hier mein kleines Makro zum einlesen der Dateien:
Public
Sub lesen()
Dim fso As New FileSystemObject
Dim f As Folder
Dim p As File
Dim str As String
Dim aktuell As String
Set f = fso.GetFolder("D:\ALWIN\word")
h = 0
l = 1
Do While h <> 1
If Sheets("Tabelle1").Cells(l, 1) = 0 Then
h = 1
Else
l = l + 1
End If
Loop
leer = l
i = leer
For Each p In f.Files
Sheets("Tabelle1").Cells(i, 1) = p.Name
i = i + 1
2Next
End Sub
Ich hoffe einer von Euch kann mir helfen, mein Latein ist am Ende ;-))
Gruß
Tommy