Dateiexport überprüfen

[Primera]

Hallo,
kann mir jemand dabei helfen, wie ich überprüfe, ob eine Datei schon vorhanden ist?
Sieht folgendermaßen aus:

Private Sub btnOutputTo_Click()
Dim strPath As String
Const conBerichtName = "rptAngebot"

' # 'Reportausgabe als Datei "rptAngebot - Test.snp"
' # DoCmd.OpenReport "rptAngebot", acViewPreview, , "ID_Rechnung =" & Form_frmRechnungen.ID_Rechnung
' # strPath = AddSlash(GetDataBasePath()) + conBerichtName + " - Test.snp"
' #

'Reportausgabe als Datei "rptAngebot - Test.snp"
DoCmd.OpenReport "rptAngebot", acViewPreview, , "ID_Rechnung =" & Form_frmRechnungen.ID_Rechnung

strPath = AddSlash(GetDataBasePath()) + conBerichtName + " - Test.snp"

OutputSend conAlsDatei, conBerichtName, strPath

DoCmd.Close acReport, "rptAngebot", acSavePrompt

End Sub
----------
Die Datei "rptAngebot - Test.snp" ist also vorhanden und würde überschrieben werden.

Hoffe es kann mir jemand helfen?

 

[wincnc]

Erstelle ein Modul und füge folgendes ein:

Function FileExists(Filename$) As Boolean
FileExists = (Dir$(Filename$) <> "")
End Function

Aufruf:
If FileExists(DeinPfad\DeineDatei.xxx) then
Mach Irgend Was
endif