Überprüfen ob Datei vorhanden ist!

[Christopher]

Hallo Leute,

ich will per Script eine bei mehreren Dokumenten eine Datei anhängen. Funktioniert auch Super solange es die Datei auch gibt. Wenn es die Datei nicht gibt erhält man eine Fehlermeldung dass die Datei nicht vorhanden ist.
Leider wird das Script dann abgebrochen und das will ich umgehen.

Set attach = New NotesRichTextItem( taskdoc, "Bemerkung" )
                 Set obj = attach.EmbedObject ( EMBED_ATTACHMENT, "", dateiname )

[Christopher]

Ich glaub hab selber was gefunden  

Sub Click(Source As Button)
Dim datei,pfad,var As String
On Error Goto errhandler
datei="winnn.ini"
pfad="c:\windows\"
var=Dir$(pfad+datei)
If var="" Then
Messagebox "Datei "+datei+" im Verzeichnis "+pfad+" nicht gefunden"
Else
Messagebox "Datei gefunden - weiterverarbeiten ..."
End If
Exit Sub
errhandler:
Messagebox "Verzeichnis "+pfad+" existiert nicht"
Exit Sub
End Sub