Verzeichnis mit Hilfe eines FSO löschen

[buzi]

Ok, also nochmal die Bitte um Hilfe. Ich habe die Anforderung, Daten nach Open Office Writer zu exportieren aus Lotus Notes. Ich schreibe in Lotus Script eine Funktion, die einen temporären Dateipfad anlegt, dort Dateien ablegt, und dieses Verzeichnis am Ende des Exports wieder löscht. Egal, wo ich diesen Pfad anlege (auf C direkt oder am Desktop...) - der Ordner lässt sich hinterher per Lotus Script nicht mehr löschen, per Hand aber schon und das ohne Rückfrage.

Schreibe ich es in LS: RmDir bekomme ich den Fehler "path/file access error". Darum versuchte ich es mit dem FSO, aber da meldet die Laufzeit "OLE: Automation object error".

Also, wie lege ich einen temporären Ordner an, den ich danach wieder löschen kann, in Lotus Script (ist mir natürlich lieber als FSO)...?

[dnotes]

Ich habe das jetzt mal aus der Hilfe kopiert:
MkDir "c:\test"
RmDir "c:\test"

Die von Dir besagte Fehlermeldung kommt bei mir nur bei:

1. MkDir "c:\test"  -> wenn das Verzeichnis bereits existiert
2. RmDir "c:\test" -> wenn das Verzeichnis nicht leer ist.
Da müsste dann vorher das Verzeichnis gellert werden.

[buzi]

Ja, beides ist der Fall. Ich bräuchte entweder die Funktion MkDir mit Option "Überschreiben wenns schon existiert" oder die Funktion RmDir mit Option "Lösche auch den Inhalt". Sorry, komme aus der objektorientierten Welt und stoße bei Lotus Script manchmal einfach auf unsichtbare Mauern... 

[ascabg]

Hallo,

Und was waere, wenn es jetzt auch etwas unlogisch klingt, wenn Du es mit der guten alten DOS-Variante
versuchst?
Da gibt es ja auch einen rmdir-Befehl. Und bei diesem kannst Du den Parameter /S (rmdir /S <Verzeichnis>) mitgeben
der dann auch gleich noch den gesamten Inhalt des zu loeschenden Verzeichnisses loescht.


Andreas

[buzi]

In der Dos-Console geht es natürlich. Gibt zwar ne Rückfrage "Wollen Sie... (j/n)" aber geht. Genauso wie wenn ich es manuell mache, also mit Maus bzw. Tastatur im Explorer. Warum nur will mein Code es nicht für mich tun? Kann ich den Dos-Code in mein Script aufnehmen oder wie?

[Keydins]

Merk dir doch in einer Liste oder einem Array die Namen der von dir erzeugten Dateien und lösche nach Abschluss der Verarbeitung alle gespeicherten Dateien über eine Schleife per 'Kill'. Bei diesem Vorgehen kannst du dir dann das Löschen des temp-Verzeichnises sparen, da du das ja bei der nächsten Verarbeitung sicher wieder brauchen wirst.

Du kannst z.B. über die 'Environ' Funktion im Windowsumfeld das temp-Verzeichnis des Betriebssystems abfragen und es für deine Zwecke als Zwischenspeicher nutzen, am Besten in Verbindung mit der Kill-Löschschleife, um unnützen Datenmüll zu vermeiden.

[buzi]

Ein Kill auf den Dateien habe ich auch schon versucht. Da bekomme ich die selbe Fehlermeldung.

[dnotes]

Mit diesem Code werden alle Dateien aus dem angegebenen Verzeichnis gelöscht und abschließend das Verzeichnis.

Code

        path = "c:\Test\" 
	Dim sess As New NotesSession
	Dim alleDateien As Variant
	Dim filename As String
	Dim filepath As String
	Dim sep As String
	If path <> "" Then
		
		If Instr(sess.Platform, "Windows") > 0 Then
			sep = "\" 
		Else
			sep = "/" 
		End If
		Redim alleDateien(0)
		If Instr(path, sep) > 0 Then
			filepath = Strleftback(path, sep) 
		End If
		filename = Dir(path, 16)
		While filename <> ""
			If filename <> "." And filename <> ".." Then
				If (Getfileattr(filepath & sep & filename) And 16 >0) Then 
					
					alleDateien = Arrayappend(alleDateien,filepath & sep & filename )
					
				End If
			End If
			filename = Dir 
		Wend
		alleDateien = Fulltrim(alleDateien)
	End If
	Forall DT In alleDateien
		Kill DT
	End Forall
	Rmdir path

[ascabg]

Man koennte ihm in der DOS-Box ja auch noch zusaetzlich den Parameter /Q mitgeben.


Andreas

[Peter Klett]

Kann es sein, dass, während Du mit Script die Dateien/den Ordner löschen willst, die Dateien noch von Open Office Writer gesperrt sind und es deshalb nicht funktioniert?

Du könntest testweise den Teil des Scriptes in eine andere Routine auslagern, der nur das Löschen vornimmt, und diese Routine separat laufen lassen. Funktioniert es dann, weißt Du, dass es "in einem Rutsch" nicht geht.

Dann solltest Du Die Löschroutine woanders unterbringen, z.B. im Queryclose des Dokuments, aus dem Du die Aktion startest, oder im Queryclose der Datenbank.

[buzi]

Hallo dnotes,

dein Code hat geholfen! So werden die Dateien gelöscht und das Verzeichnis kann auch gelöscht werden. Ohne Fehler. Tausend Dank!!!!

Melanie