Gruppe
Datei
Problem
Wie kann ich vor dem Kopieren einer Datei in ein anderes Verzeichnis prüfen, ob diese dort schon vorhanden ist?
StandardModule: basMain
Sub DateiKopieren()
Dim sQuelle As String, sZiel As String
sQuelle = Range("B1").Value
sZiel = Range("B2").Value
If Dir(sZiel) = "" Then
FileCopy sQuelle, sZiel
MsgBox "Datei wurde kopiert!"
Else
MsgBox "Datei war schon vorhanden!"
End If
End Sub