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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de