Umbenennen von Dateien !
23.09.2003 18:43:00
thomas scher
ich habe von Willi gestern ein Macro bekommen das mir alle Dateien mit bestimmten Kriterien ausliest. Das sieht so aus !
jetzt benutze ich ein anderes Macro um die Dateien umzubenennen und zwar dieses hier.
Sub DateiUmbenennen()
Const csMsg As String = "Datei existiert, überschreiben?"
Dim i As Integer
For i = 1 To 100 Step 1
'verzeichnis = InputBox(("Bitte Pfad eingeben!"), "Verzeichnisse in Tabelle1", "C:\AVAYA-REPORTS\")
verzeichnis = ("C:\AVAYA-REPORTS\")
On Error GoTo ERRORHANDLER
Name verzeichnis & Cells(i, 1).Value As verzeichnis & Cells(i, 2).Value
Next i
Exit Sub
ERRORHANDLER:
If Err = 58 Then
Beep
If MsgBox(csMsg, vbQuestion + vbYesNo) = vbNo Then Exit Sub
Kill Range("B1").Value
Resume
ElseIf Err = 53 Then
Beep
MsgBox " Datei nicht gefunden "
End If
End Sub
das Verzeichniss ist immer das gleiche doch er ändert nur die ERSTE Datei und sagt mir danach das er das Zweite schon nicht mehr findet!
Warum funktioniert das nicht ?? Könnt ihr mir bitte helfen ??
Vielen dank an alle im Vorraus
Der Thomas