Domino 9 und frühere Versionen > Entwicklung

Directory leeren

(1/2) > >>

Don Pasquale:
Hallo Leute,

wie kann ich aus LotusScript heraus ein Verzeichnis leeren
z.B. C:\TEMP\ , ohne dass Verzeichnis selbst zu löschen.
Oder ist es einfacher, dass Verzeichnis zu löschen und
wieder neu anzulegen ?

fragt sich (und Euch)

Don Pasquale

eknori:
Mit der CLASSExplorer kein Problem

Kopiere die Explorer.txt in die Declaration section eines Action Buttons or what have you.

Beispiel:

Sub Click(Source As Button)
   Dim DF As New DiskFile
   dummy% = DF.DeleteFile ( "c:\temp\*.*" , FOF_FILESONLY)
End Sub

löscht alle Dateien aus dem verzeichnis c:\temp ; dabei bleiben Unterverzeichnisse erhalten.

Die Parameter findest du ebenfalls in der Klasse

Don Pasquale:
Hallo Eknori,

ist ja echt komfortabel, allerdings finde ich micht mit der Klasse
so schnell nicht zurecht.

Mit genau diesem Code :

   Dim DF As New DiskFile
   dummy% = DF.DeleteFile ( ARCDIR , FOF_FILESONLY)

wird das komplette Verzeichnis gelöscht statt nur
geleert.

Ich würde ihm gerne noch zusätzlich
FOF_SILENT
als Parameter mitgeben, er mag aber nicht mehr als die
obigen Beiden Parameter akzeptieren.

Kannst Du mir da noch einen Tipp geben ?


Ciao
Don Pasquale

NACHTRAG :

   dummy% = DF.DeleteFile ( ARCDIR , FOF_FILESONLY + FOF_SILENT)


verhindert eine Nachfrage

eknori:
versuche mal ARCDIR\*.*,  ( wobei ARCDIR = LW:\Pfad )

Don Pasquale:
@EKNORI,

genau daran lag es. Das *.* fehlte.

Aber nun bekomme ich wieder die Sicherheitsabfrage.
Und die fragt zudem noch :
Wollen Sie den Papierkorb löschen ?"
very strange .

Der aktuelle Code

   Dim DF As New DiskFile
   strDIR$ = ARCDIR + "\*.*"
   dummy% = DF.DeleteFile ( strDir$ , FOF_FILESONLY + FOF_SILENT)

Ciao

Don Pasquale

Navigation

[0] Themen-Index

[#] Nächste Seite