Dateien umbenenen - Fehler tritt auf ??!
24.03.2004 00:01:28
ralle
Möchte gerne Dateinamen, die in der Spalte A1:A1000 stehen umbenenen. Der neue Name steht in der Spalte B1:B1000.
Habe hierfür auch ein Makro gefunden das wie folgt lautet:
Sub Dateien_umbenenen()
' Dateien_umbenenen Makro
Dim i As Integer
Dim DateiNameAlt As String, DateiNameNeu As String, Verzeichnis As String
Dim fs As Object, f As Object
On Error Resume Next
Verzeichnis = "D:\Test1\"
Set fs = CreateObject("Scripting.FileSystemObject")
For i = 1 To 1000
DateiNameAlt = Cells(i, 1)
DateiNameNeu = Cells(i, 2) & ".xls"
Set f = fs.GetFile(Verzeichnis & DateiNameAlt)
f.Name = DateiNameNeu
Next i
End Sub
Das Problem ist nur, das er der letzten Datei in Spalte A nicht den zugewiesenen Namen aus Spalte B gibt. Stattdessen steht im Verzeichnis nur .xls
Woran kann das liegen??
Für Eure Hilfe wäre ich sehr dankbar !!
Gruß
ralle
Anzeige