Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Christopher am 04.07.02 - 23:19:36

Titel: Überprüfen ob Datei vorhanden ist!
Beitrag von: Christopher am 04.07.02 - 23:19:36

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 )

Titel: Re: Überprüfen ob Datei vorhanden ist!
Beitrag von: Christopher am 04.07.02 - 23:56:12

Ich glaub hab selber was gefunden  ;D

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