Prüfen ob Datei existiert

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Prüfen ob Datei existiert
von: Thomas
Geschrieben am: 21.10.2015 09:50:28

Hallo zusammen,
ich habe folgenden Code der eine Kopie einer Datei im Unterverzeichnis "Archiv" des aktuellen Verzeichnisses erstellt. Wie kann ich hier eine Abfrage eibauen die prüft ob die Datei schon existiert und abfragt ob die Datei überschrieben werden soll.
Ich bekomme es aufgrund des generierten Dateinamens nicht hin. :-(
Für Lösungsvorschläge bin ich unendlich dankbar!
Gruß,
Thomas
Hier noch mein Code

Sub Speichern()
Dim strPath As String
Dim strFile As String
strPath = ActiveWorkbook.Path & "\Archiv\"
strFile = Sheets("Standortkürzel").Range("B4")
ActiveWorkbook.SaveCopyAs Filename:=strPath & strFile & Format(Date, "_yyyy") & ".xlsm"
End Sub

Bild

Betrifft: AW: Prüfen ob Datei existiert
von: Daniel
Geschrieben am: 21.10.2015 10:17:03
Hi
du kannst die DIR-Funktion nutzen:

dim strDatei as string
...
strDatei = strPath & strFile & Format(Date, "_yyyy") & ".xlsm"
if dir(strDatei) = "" then
    activeWorkbook.savecopyas strDatei
else
    select Case Msgbox("Datei bereits vorhanden. Überschreiben?", vbyesno + vbquestion)
         case vbyes
             activeworkbook.savecopyas strDatei
         case else
    end select
End if
Gruß Daniel

Bild

Betrifft: AW: Prüfen ob Datei existiert
von: Thomas
Geschrieben am: 21.10.2015 10:47:17
Hallo Daniel,
danke für Deine schnelle Hilfe. Funktioniert einwandfrei.
Viele Grüße,
Thomas

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Prüfen ob Datei existiert"