Datei umbenennen MAKRO funktioniert nicht
01.12.2004 11:49:30
tommy
Hallo liebe Helfer,
ich habe nachstehendes Makro gefunden und den Pfad angepasst.
Public Sub Namen_aendern()
Dim lngZeile As Long, lngIndex As Long, strPfad As String
Dim myFSyObjekt As Object, myFiObjekt As Object
strPfad = "C:/Umbenennen" 'hier bitte den Pfad anpassen
Set myFSyObjekt = CreateObject("Scripting.FileSystemObject")
For lngZeile = 2 To Cells(65536, 1).End(xlUp).Row
Application.StatusBar = "Geändert wird Datei """ & CStr(Cells(lngZeile, 1)) & """ als " & CStr(lngZeile - 1) & ". von " & CStr(Cells(65536, 1).End(xlUp).Row - 1)
With Application.FileSearch
.LookIn = strPfad
.Filename = Cells(lngZeile, 1)
If .Execute = 1 Then
Set myFiObjekt = myFSyObjekt(strPfad & "\" & .FoundFiles(1))
myFiObjekt.Name = Cells(lngZeile, 2)
Else
Application.StatusBar = False
MsgBox "Dateiname """ & CStr(Cells(lngZeile, 1)) & """ nicht oder mehrfach gefunden. Bitte prüfen.", 16, "Warnung"
Exit Sub
End If
End With
Next
Application.StatusBar = False
MsgBox "Fertig.", 64, "Information"
End Sub
Wenn ich das Makro laufen lasse, erhalte ich immer den Hinweis: Dateiname "1" nicht oder mehrfach gefunden Bitte prüfen.
Die Datei ist aber nur einmal vorhanden.
Ich möchte gerne folgendes erreichen. In meinem Ordner C:\Umbenennen befinden sich sehr viele pdf-Dokumente.
In Spalte A ab Zeile 2 steht der Name des alten Dokumentes aber ohne Suffix. In Spalte B ab Zeile 2 steht der neue Name auch ohne Suffix.