Filecopy auf Server ausführen???

[gfunkus]

Hallo Leute,

Folgender Agent sagt mir wenn ich files ausserhalb des lokalen dateisystems schreiben oder lesen will file not found. dies geschieht seltsamerweise nur wenn der agent im BE ausgeführt wird. Aus dem Client heraus geht er einwandfrei. Habt ihr ne Idee oder Verbesserungsvorschläge?



Print("FileCopy Agent beginnt...")
   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim view As notesview
   Dim doc As NotesDocument
   Dim pathname As String
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set view = db.getView("Filecopy")   
   Set doc = view.GetFirstDocument
   '   
   While Not ( doc Is Nothing )
      'result =   Shell("copy " + doc.srcfile(0) + " " + doc.dstfile(0),1)      
      Filecopy doc.srcfile(0)   ,doc.dstfile(0)
      Print("Datei " + doc.fname(0) + " wurde kopiert.")
      Set doc = view.GetNextDocument( doc )   
   Wend
   
   
   Print("Stats FileCopy Agent ist gelaufen.")
   

[Ralf_M_Petter]

Hm tippe ich mal auf Benutzerprofil unter dem der Server läuft nicht auf diese Verzeichnisse berechtigt.

Grüße

Ralf

[gfunkus]

doch hat der server ist mit den laufwerken als Admin verbunden und kann darauf zugreifen..

[Ralf_M_Petter]

Hm, dann weiß ich leider auch nicht weiter.

Grüße

Ralf

[gfunkus]

vermute mittlerweile der fehler könnte auf betriebssystemebene liegen... ist ein 2003 Server....