Dateinamen ändern
22.07.2004 11:59:53
Claudia
ich erhalte täglich eine sehr große Menge an Dateien (mehrere Hundert) und lese diese Dateinamen mit Endung ein. Die Dateien stehen immer in einem ganz bestimmten Ordner. E:\NEUEDATEN
In meiner Tabelle wird in Spalte A ab Zeile 2 der Dateiname mit Endung eingelesen, dann in Spalte B ab Zeile 2 wird mittels Makro ein neuer Dateiname generiert. Wie kann ich jetzt den neuen, veränderten Dateinamen wieder zurück schreiben (die alte Datei soll dabei überschrieben werden). Habe ein Makro von Nepumuk gefunden (füge ich unten bei), dort wird aber beim einlesen immer der komplette Pfad erfasst was bei mir ja nicht der Fall ist.
Kann mir jemand helfen, dass dieses Makro auf meine Bedürfnisse passt?
Sub Namen_aendern()
Dim Zeile As Long, FSYobjekt As Object, FObjekt As Object
Set FSYobjekt = CreateObject("Scripting.FileSystemObject")
For Zeile = 1 To Cells(65536, 1).End(xlUp).Row
Set FObjekt = FSYobjekt.GetFile(Cells(Zeile, 1))
FObjekt.Name = Cells(Zeile, 2) & Right(Cells(Zeile, 1), 4)
Next
End Sub
Vielen Dank im voraus für Eure Hilfe
Gruß
Claudia