Domino 9 und frühere Versionen > ND7: Entwicklung

Datei löschen über Script

<< < (4/4)

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

--- Ende Code ---

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
--- Ende Code ---

Nochmal vielen Dank an alle....

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

Navigation

[0] Themen-Index

[*] Vorherige Sete