Verzeichnis mit Hilfe eines FSO löschen

[Christian Weiß]

Hallo,

über dieses Forum bin ich auf das FSO aufmerksam geworden.

In einem Thread habe ich dann folgenden Code gesehen:

Code

Set fso = createObject("Scripting.FileSystemObject")
fso.DeleteFolder "c:\Ordnername", False

Ich habe dies ausprobiert und es funktioniert auch.
Jetzt möchte ich allerdings gerne den Namen des Ordners als Konstante übergeben um das löschen eines Verzeichnisses so zum Beispiel in eine Lotusscript-Funktion auszulagern.
Wenn ich dann so etwas notiere:
fso.DeleteFolder DirectoryName, False

kriege ich eine Fehlermeldung: OLE: Automation object error
Könnt ihr mir einen Tipp geben, wie ich die Zeile richtig schrieben muss?

[pram]

Ins blaue geraten

1.
const DirectoryName$="c:\Ordnername"
fso.DeleteFolder DirectoryName, False

2.
dim myDirName as String
myDirName = DirectoryName
fso.DeleteFolder myDirName, False

3.
fso.DeleteFolder cstr(DirectoryName), False

Gruß
Roland

[Christian Weiß]

Vielen Dank für die Antwort.
Mit fso.DeleteFolder cstr(DirectoryName), False hat es funktioniert.

[buzi]

Hallo, ich hab grad das selbe Problem. Kann es aber mit CStr nicht lösen 
Liegt es daran, dass der Ordner direkt auf C:\ liegt und ich da generell nicht löschen kann mit dieser Funktion?

[ascabg]

Hallo,

Und was fuer einen Fehler bekommst Du?

Prinzipiell kannst Du mit dieser Funktion auch Dateien/Ordner direkt auf C:
loeschen.


Andreas

[buzi]

OLE: Automation object error

[buzi]

Hier mein code:

   Dim fso As Variant 'FileSystemObject
   Set fso = createObject("Scripting.FileSystemObject")
   
   If fso.FolderExists(dirName) Then
      fso.DeleteFolder dirName, True
   End If

[ascabg]

Und dirName ist eine String-Variable?


Andreas

[buzi]

Ja. Sorry hier die ganze Funktion:

Function deleteTmpPath(dirName As String)
   
   Dim fso As Variant 'FileSystemObject
   Set fso = createObject("Scripting.FileSystemObject")
   
   If fso.FolderExists(dirName) Then
      fso.DeleteFolder dirName, True
   End If
   
End Function

[ascabg]

Nicht das wir hier ein Rechte-Problem haben.
(ist erst einmal nur eine Vermutung)


Andreas

[buzi]

Ja so kommt es mir eben auch vor. Denn es klappt nicht, egal welche Funktion ich benutze (auch die Dir-Fkt von Lotus Notes mag nicht...

Aber wo liegt das Problem? Rechte in Windows? Oder Rechte in Notes? Bin ja überall Admin...?!?!

[it898ur]

Hallo,

kann es sein, dass eine Datei aus dem Ordner noch von Notes oder einem anderen Programm im Zugriff ist - dann kann der Ordner auch nicht gelöscht werden (egal mit welchen Rechten).

Gruß

André

[buzi]

Hallo Andre,

ja das ist gut möglich! Ich habe den temp-Ordner nämlich erstellt, um Dateien abzulegen, deren Inhalt in eine andere Datei kopiert wurden. Nach dem Vorgang möchte ich die temp-Dateien natürlich wieder löschen. Vielleicht ist da noch ein Handle drauf?

Set destDoc = StarDesktop.loadComponentFromURL("private:factory/swriter","_blank",0,args)
Set destText = destDoc.getText()
Set destCursor = destText.createTextCursor()
bausteinFile = convertToURL(tmpPath, tmpFile)
Call destCursor.insertDocumentFromUrl(bausteinFile, args)

Wobei bausteinFile im temp-Ordner liegt. Sie wird nicht explizit geladen, nur ins andere File geladen. Muss ich trotzdem irgendwas "aufräumen" bevor ich den Ordner lösche?

Mel

[Tode]

Mal ne blöde Frage: Warum schlägst Du Dich mit einem FSO- Objekt rum, was eh nur unter Windows funktioniert, und u.U. in jeder Windows- Version anders, wenn Du einfach Standard LotusScript verwenden kannst?

Kill fileName
bzw.
rmDir directoryName

sind jeweils eine Zeile Code, und funktionieren auf jeder Plattform auf der der Domino läuft. Wenn Du dann in den Agenteneinstellungen die Sicherheit noch auf "Allow Restricted Operations" setzt, dann ist das alles gar kein Problem, und Du musst Dich nicht mit irgend einem Objekt rumschlagen...

[buzi]

Hallo Torsten,

du hast natürlich Recht. Ich hatte es auch erst mit Dir etc. implementiert bin da auf das gleiche Problem gestoßen. Dann dachte ich die Lösung ist FSO. Gefällt mir auch besser zum coden weil ich aus dem Java/C#-Umfeld komme und mir die Script-Funktionen von Lotus manchmal ziemlich viel Zeit zum Verstehen kosten :-) auch wenn sie dann am Ende sehr praktisch sind.

Wie gesagt, löschen kann ich das temp-Dir so oder so nicht :-(

[buzi]

Die Dateien haben z.T. einen Schreibschutz! Wie kann ich diesen umgehen?

[ascabg]

Hallo,

Ganz simple gesagt, wenn Du entsprechende Rechte hast, diesen ausschalten und die Dateien dann loeschen.


Andreas

[buzi]

Übrigens

rmDir directoryName

bringt path/file access error

[buzi]

Die einzelnen Dateien haben gar keinen Schreibschutz! Aber der Ordner den ich versuche zu löschen hat in den Eigenschaften das Kästchen ausgefüllt bei Schreibschutz.....

[ascabg]

Und wo bitte besteht der Unterschied, ob ich das 'Flag' (Attribut) des Schreibschutzes
bei einem Ordner bzw. einer Datei setzen oder loeschen will?


Andreas

P.S.:
Im Uebrigen bewegen wir uns hier schon lange nicht mehr auf dem Gebiet der Notes/Domino-Programmierung.