Hallo,
über dieses Forum bin ich auf das FSO aufmerksam geworden.
In einem Thread habe ich dann folgenden Code gesehen:
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?
Mit diesem Code werden alle Dateien aus dem angegebenen Verzeichnis gelöscht und abschließend das Verzeichnis.
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