Dateien umbenennen
26.08.2003 14:27:27
Micha_S
ich habe in Hans' Beispielen Code zum umbenennen von Dateien gefunden. Der Funktioniert leider nur in Zelle A2 + B2 (steht ja auch drin).
Wie muß ich was ändern, wenn von A2 bis A? die alten, in B2 bis B? die neuen Dateinamen in den Zellen stehen???
Ich würde mich riesig über eure Hilfe freuen.
Vielen Dank im Voraus.
Gruss aus Berlin
Micha
Der Code:
Sub datei_umbenennen()
Const csMsg As String = "Datei existiert bereits. Überschreiben?"
On Error GoTo ERRORHANDLER
'in A2 steht der alte Dateiname mit kompletter Pfadangabe (analog B2)
Name Range("A2").Value As Range("B2").Value
Exit Sub
ERRORHANDLER:
If Err = 58 Then
Beep
If MsgBox(csMsg, vbQuestion + vbYesNo) = vbNo Then Exit Sub
Kill Range("B2").Value 'was passiert hier????? KILL klingt so dramatisch!
Resume
ElseIf Err = 53 Then
Beep
MsgBox "Datei nicht gefunden!"
End If
End Sub