Private Sub Command11_Click()
'Quell Datei abfragen
Titel = "Datei kopieren"
Syntax = "Datei [Syntax: Lw:\Pfad\Dateiname]:"
Quell = Trim(InputBox("Quell" + Syntax, Titel))
Ziel = Trim(InputBox("Ziel" + Syntax, Titel))
If Quell = "" Or Ziel = "" Then
'Kein Kommandozeilenschalter angegeben:Fehler
Titel = "Fehler"
Meldung = "Sie müssen sowohl eine Quell- als auch eine Zieldatei angeben!"
MsgBox Meldung, vbCritical, Titel
Else
'Quell- und Zieldatei unterschiedlich?
If Quell = Ziel Then
'Dateiangaben sind identisch:Fehler
Titel = "Fehler"
Meldung = "Sie müssen unterschiedliche Verzeichnisse für die Quell- und" & _
  "Zieldatei angeben!"
MsgBox Meldung, vbCritical, Titel
Else
'kopieren Versuchen
FileCopy Quell, Ziel
Titel = "Achtung"
Meldung = "Die Datei <" + Quell + "> konnte "
Meldung = Meldung + "nicht nach <" + Ziel + " > "
Meldung = Meldung + "kopiert werden!"
MsgBox Meldung, vbCritical, Titel
Exit Sub
End Sub