Domino 9 und frühere Versionen > ND7: Entwicklung

Datei löschen über Script

(1/4) > >>

C_T:
Hallo alle zusammen,

ich habe folgendes Problem:

Ich habe ein Agenten erstellt, welcher ein Wor-Dokument erstellt und in Notes in einem Dokument hinterlegt.

Bei diesem Agenten werden 2 Datein in einen Ordner erstellt der für diesen Agenten immer extra erstellt wird. Das Problem ist dass diese beiden Datein und der Ordner sich nicht löschen lassen. Ich habe das Forum schon fünf mal durchsucht, habe leider dennoch nichts gefunden. Ich hoffe Ihr könnt mir helfen.

Anbei der Code zum schließen von Word und das löschen der Datein.

(Da ich den selben Code an 2 stellen im Agenten benötige habe das schließen und löschen in eine eigenen Sub gepackt,)


--- Code: ---Sub CloseDelete(wordapp As Variant,notesPfad As String)
Dim pathName As Variant
Dim FileName As Variant

wordapp.Quit 0
Call wordapp.Quit(0)
Set Wordapp = Nothing   

Sleep(30)

pathName = NotesPfad +"\*.*"
fileName = Dir$(pathName, 0)
Do While fileName <> ""
Kill fileName
fileName = Dir$()
Loop

Rmdir NotesPfad & "\"&Cstr(Date)

End Sub
--- Ende Code ---

koehlerbv:
Welche Fehlermeldung??

C_T:
Sry habe ich auch gerade dran gedacht....


--- Zitat ---Es ist ein Fehler aufgetreten!

Function: CLOSEDELETE 75: Path/file access error - Line 19

--- Ende Zitat ---

Line 19: "   Kill fileName"

Die Datein lassen sich manuel löschen nur der ordner nicht.....

koehlerbv:
Passen den die Rechte für das Verzeichnis für den ausführenden User?

Benrhard

C_T:
Jo

also ich teste es hier an nem PC und an dem bin ich admin. Und ich kann die Datein ja nach dem Agent auch manuell ohne probleme löschen. Jedoch kann ich den Ordner nicht löschen da Windoof mir sagt das da noch jemand drauf zugreift.

Unsere "normalen" Benutzer haben alle einen NC also eine Workstation wo sie natürlich extrem wenige Berechtigungen habe. Doch ebend aus diesem Grund habe ich mich für den Notespfad entschieden.


--- Code: ---NotesPfad= session.GetEnvironmentString("Directory",True)
NotesPfad = NotesPfad & "\XYZ_" & Cstr(Date)

--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite