Datei löschen über Script

[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

[koehlerbv]

Welche Fehlermeldung??

[C_T]

Sry habe ich auch gerade dran gedacht....

Es ist ein Fehler aufgetreten!

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

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)

[dirk_2909]

Du greifst ja noch mit dem Script auf die Datei zu. Ich denke es liegt daran.

Schreib doch die Dateinamen, der zu löschenden Dateien in eine Liste und Lösche in einem zweiten Durchlauf (mit den Listelementen) die Dateien.

Bsp.:

Code

pathName = NotesPfad +"\*.*"
fileName = Dir$(pathName, 0)

Dim lstToDel List as String

Do While fileName <> ""
	lstToDel( fileName ) = "1"
	fileName = Dir$()
Loop

forall vD in lstToDel 
   Kill Listtag( vD )
End Forall

[C_T]

HI Danke schonmal für die Hilfe, jedoch gibt es wieder die selbe Fehlermeldung zurück wie oben schon beschrieben:

Es ist ein Fehler aufgetreten!

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

Zeiel 41 ist in diesem Fall:

Code

Kill Listtag( vD )

[dirk_2909]

dann sind es die Berechtigungen ..

[C_T]

wie gesagt ich bin auf meinem PC als administrator angemeldet mit uneingeschränkten Zugriff....

[Axel]

Kann es sein, dass die Datei(en) noch von einer anderen Anwendung gesperrt sind, z.B. Word?

Nach deinem ersten Codeauszug zu urteilen verwendest du ja Word.


Axel

[C_T]

So ich habe das nochmal getestet und über den Debugger kurz vor dem löschen der Datein (über Skript)  angehalten und dann die Datein Manuel gelöscht (also Arbeitsplatz --> Ordner geöffnet --> Datein markiert --> löschen). Dies hat auch ohne Probleme geklappt, also kann die Theorie (die ich auch erst hatte) das Word noch drauf zugreift nicht stimmen.

[eknori]

hast du mal versucht, das Timing beim Sleep höher zu setzen? 30 ms scheinen mir ein wenig kurz ...

[C_T]

Also ich habe jetzt auch einmal die Sleep Time auf 100 gestellt.

Immernoch das gleiche Problem.

@Eknori: die Zeit beim Sleep wird in Sekunden angegeben nicht in ms.

Causes a script to pause for at least the number of seconds specified. The script may pause longer.

[Pyewacket]

Das Problem hatte ich auch mal. Gelöst habe ich es dadurch daß ich den kompletten Filepath incl. Laufwerksbuchstaben und Directory angegeben habe.

[C_T]

Das Problem ist das der gesammte Dateipfad sich immer wieder ändern kann. Daher gehe ich ja schon auf Notespfad....

[C_T]

Keiner da der noch ne idee für dieses Problem hat???

Wäre echt super Vielen Dank....

[Werner Götz]

Ich würde mal z.B. ein Print oder eine Msgbox einbauen, in der ich vor dem Kill ausgebe, was gelöscht werden soll.

Code

pathName = NotesPfad +"\*.*"
fileName = Dir$(pathName, 0)
Do While fileName <> ""
	Print "Lösche <" & fileName & "> ... "
	Kill fileName
	Print "<" & fileName & "> gelöscht."
	fileName = Dir$()
Loop

Eventuell zeigt sich hierbei ja z.B., dass versucht wird, das Verzeichnis selbst zu löschen.

-Werner

[C_T]

Ich habe mir das jetzt alles nochmal durch den Kopf gehen lassen und mir ist ein Geistesblitz gekommen. Und zwar konnte das so wies jetzt da steht nicht funktionieren.

Da in filename zwar die Datei steht die gelöscht werden soll, jedoch nicht mit dem dazugehörigen Pfad. Daher kann die Datei auch nicht gefunden werden....

Anbei der korrekte Code:

Code

	Dim pathName As Variant
	Dim FileName As Variant
	
	pathName = NotesPfad +"\*.*"
	fileName = Dir$(pathName, 0)
	Dim file As Variant
	
	Do While fileName <> ""
		file = NotesPfad +"\"+ fileName
		Kill file
		fileName = Dir$()
	Loop
	Rmdir NotesPfad

Nochmal vielen Dank an alle....

[klaussal]

Das wäre aber im Debugger sofort aufgefallen....