Gruppe
Datei
Problem
Wie kann ich eine Datei umbenennen? Der Quellname steht in Zelle A2 und der Zielname in B2. Fehlermeldungen sollen abgefangen werden.
StandardModule: basMain
Sub DateiUmbenennen()
Const csMsg As String = "Datei existiert, überschreiben?"
On Error GoTo ERRORHANDLER
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
Resume
ElseIf Err = 53 Then
Beep
MsgBox "Datei nicht gefunden!"
End If
End Sub