XProfan

- Page 2 -

Zeich time your TestSource.

Compile Mark Separation

Def SHFileOperation(1) !SHELL32,SHFileOperationA
Declare opstruct#,dir#

Proc Delete32

    Löscht im Parameter (1) angegebenen Ordner samt Unterordnern (oder Datei)
    Parameter 2: 0 = User erst fragen, 1= ohne Nachfrage löschen
    Parameter 3:  0 = In Papierkorb verschieben, 1= endgültig löschen
    Parameters dir$,noconfirm%,norecycle%
    Declare FOF_Flag%
    Case noconfirm%: Let noconfirm%=16
    CaseNot norecycle%: Let norecycle%=64
    Let FOF_Flag% = Or(noconfirm%,norecycle%)
    Dim opstruct#,30
    Dim dir#,Add(Len(dir$),2)
    Platz für 2(!) Null-Bytes lassen
    String dir#,0=Add$(dir$,Chr$(0))
    Long opstruct#,0=%hwnd   Handle des aufrufenden Fensters
    Long opstruct#,4=3  FO_Delete
    Long opstruct#,8=dir#   pfrom : hier der zu löschende Ordner
    Long opstruct#,12=0     pto (muß 0 oder eine Bereichvar. mit Zieldateinamen
    z.B. bei Umbenennung sein
    Word opstruct#,16=FOF_Flag%
    Long opstruct#,18=0Hier steht nach dem Aufruf 1, wenn User abgebrochen hat
    Long opstruct#,22=0  Unbedingt immer auf Null setzen!
    Long opstruct#,26=0  Zeiger(Bereich) auf Überschrift des Fortschrittsdialogs

    IF Gt(ShFileOperation(opstruct#),0)

        MessageBox(Es ist ein Fehler aufgetreten,ShFileOperation,16)

    EndIf

    Dispose dir#
    Dispose opstruct#

EndProc

Declare files$
Let files$=C:\tile.bmp
Delete32 files$,2>0,0

even once more attempt - deletes with the here angegebenen Parameters into wastebasket (naturally must The File present his

)

GDL

Hello Horst,

I have no File separate a whole Ordner velvet Unterverzeichnisse to that Delete.
too the fourth Parameter with the Sicherheitsabfrage working not.it'll without demand deleted.

to that directories delete goes the code Yes, only hold not whom wastebasket and without demand with Parameter 4.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

GDL

Nochmal I,

with of/ one individual File GEHTS by me too.only with a whole Ordner hold only so How Eingangs described.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

Perhaps. wg. Inkompatiblität the Api To Your (middle-aged?) OS?

@Georg
it must on Your system lying. because too with input one Ordner/Unterordner/Unterordner/Filenames becomes into wastebasket deleted. (with Rückfrage) Since I this code in of my Dateiverwaltung 2windows4you already since ...ME-times without Problems use, can it only in your Konfiguration or Your OS lying

PS: If the Ordner with its Subfolders and Files greater as capacity Your Papierkorbes is, becomes the Ordner with the kompletten Content immediate deleted !

Ah - you mean his wastebasket is möglicherweise with etwaigen Bananenschalen and ill riechenden Pizzaresten already occupied?

only sone idea.

@iF
with RECHTEM Click the wastebasket-Icon works one Menu on: here stand The properties the Papierkorbes - standard-attitude is here 10% the Plattengrösse. If now so some already in the wastebasket schlummert (Files and Ordner and NO Bananenschalen) is sometime the wastebasket fully ! (happens too in Berlin with whom public Abfallbehältern) - come now yet Ordner or Files hinzu, runs the wastebasket over and the arriving data go deleted ! - of my opinion after a Error in windows - one can but the capacity the Korbes vergrössern - see supra (right Click etc...) Capiste ?