Gruppe
Datei
Problem
Wie kann ich Dateien - auch Nicht-Excel-Files - von einem Ordner zum anderen verschieben. Fehlermeldungen sollen abgefangen werden.
StandardModule: basMain
Sub DateiVerschieben()
On Error Resume Next
Name Range("B1").Value As Range("B2").Value
If Err > 0 Then
Select Case Err
Case 53: MsgBox "Datei nicht vorhanden!"
Case 58: MsgBox "Datei existiert bereits!"
Case Else: MsgBox Error()
End Select
End If
End Sub