WAS IST AN DIESEM CODE FALSCH
20.07.2004 12:26:43
DELPHI_NE
Sub DateiVerschieben()
On Error Resume Next
Name Range("B1").Value As Range("B2").Value
If Err > 0 Then
Select Case Err
Case 53: MsgBox " Nicht Vorhanden"
Case 58: MsgBox " Ist schon da die Datei"
Case Else: MsgBox Error()
End Select
End If
End Sub
Anzeige