Vor Txt-Datei-Erzeugung prüfen ob Datei existiert
25.04.2017 20:37:22
Markus
ich verwende folgenden Code, um ein Logfile als .txt-Datei zu erzeugen.
Soweit funktioniert alles gut.
Kann mir jemand sagen, wie ich prüfen kann, ob im Zielordner schon eine Datei mit dem gleichen Namen existiert, damit ich die Datei nur erzeuge, wenn das noch nicht der Fall ist ?
Mein Code:
Dim varLog As String, varPath As String, varRow As Long
varPath = Worksheets(1).Range("StoragePath").Value & "Log_" & Format(Now, "yyyymmdd") & "_" _
_
& varRowCount & "_" & Environ("Username") & ".txt"
Open varPath For Output As #1
varLog = Replace(varSql, vbLf, vbCrLf)
Print #1, varLog
Close #1
Vielen Dank im Voraus für Eure Hilfe.
VG,
Markus
Anzeige