Domino 9 und frühere Versionen > ND6: Entwicklung

Server auf Datei prüfen

(1/2) > >>

Hedwig14:
Hallo !
Ich möchte mit dem folgenden Script testen, ob in einem Verzeichnis auf dem
Server eine bestimmte Datei vorhanden ist ! Der Agent läugt zeitgesteuert auf dem
Server:

Sub Initialize
   
   Dim session As New NotesSession
   Dim doc As NotesDocument
   Set doc = session.CurrentDatabase.CreateDocument
   Dim sourcefile As String
   
'Prüfe ob Datei da ist
   sourcefile = "D:\DOMINO\DATA\OPAL\OpalOH.nsf"               'Dateiname auf Server
   If Dir$(sourcefile,0) = "" Then
      
'Falls Datei da ist:
      doc.SendTo ="EMPFÄNGER"
      doc.Subject = "Krueb.TXT vorhanden !!!"
      doc.Form = "Memo"
      Call doc.Send(False)
      
   Else      
      
'Falls Datei nicht da ist:
      doc.SendTo ="EMPFÄNGER"
      doc.Subject = "Krueb.TXT nicht vorhanden !!!"
      doc.Form = "Memo"
      Call doc.Send(False)
      
   End If
   
   
End Sub


Als Feher auf der Konsole erhalte ich:
Operation is disallowed in this session !

Wer kann mir helfen ?

ZaLudtske:
Hallo,

wie sie es mit den Rechten für die Ausführung der Agenten aus?

Hast du bzw. der ausführende die Rechte auf das Dateisystem zuzugreifen (Ausführen uneingschränkter Agenten)?

Rainer

Hedwig14:
Hallo !
Ja, die Rechte sind vorhanden ! Ich habe eher das Script im Verdacht !

Gibt es villeicht ein Befehl, den der Server nicht ausführen kann ?

Gruss

ZaLudtske:
Hallo,

mach doch mal vor und nach das "Dir" eine Messagbox und schreib dir somit eine Meldung ins Log. Ich habe den Verdacht, dass er das Dir nicht ausführen kann.

Rainer

Hedwig14:
Ja, mit dem Dir kommt der Server nicht klar !
Ich habe ein Print davor und dahinter ausgegeben

Die 2. Printausgabe zeigt er mir nicht an !


Hilfe was kann ich tun ???

Navigation

[0] Themen-Index

[#] Nächste Seite