Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Datei kopieren, wenn noch nicht vorhanden

Gruppe

Kopieren

Problem

Wie kann ich vor dem Kopieren einer Datei in ein anderes Verzeichnis prüfen, ob diese dort schon vorhanden ist?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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