XProfan

- page 2 -

Zeich la fois Deinen TestSource.

Kompilieren Marque Séparation

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

plan encore la fois versuch - löscht avec den ici angegebenen Parametern dans den corbeille à papier (naturellement muss qui Dossier vorhanden son

)

GDL

allô Horst,

j'ai aucun Dossier mais une ganzen Dossier velours Unterverzeichnisse zum Effacer.
aussi qui vierte paramètre avec qui Sicherheitsabfrage funzt pas.Es wird sans demande gelöscht.

Zum Verzeichnisse effacer allez qui Code oui, seulement arrêt pas dans den corbeille à papier et sans demande chez paramètre 4.

salut
Georg

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

[...]

GDL

Nochmal je,

avec einer individuel Dossier gehts chez mir aussi.seulement avec einem ganzen Dossier arrêt seulement so comment Eingangs beschrieben.

salut
Georg

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

[...]

Vlt. GT. Inkompatiblität qui Api trop Deinem (alten?) OS?

@Georg
Es muss à Deinem System liegen. car aussi avec Eingabe eines Dossier/Unterordner/Unterordner/Dateinamen wird dans den corbeille à papier gelöscht. (avec Rückfrage) là je cette Code dans meiner Dateiverwaltung 2windows4you déjà depuis ...ME-Zeiten sans Probleme nutze, peux es seulement dans Deiner Konfiguration ou bien Deinem OS liegen

PS: si qui Dossier avec seinen Les sous-dossiers et Fichiers grösser comment qui capacité Deines Papierkorbes ist, wird qui Dossier avec dem kompletten le contenu tout de suite gelöscht !

Ah - Du meinst son corbeille à papier ist möglicherweise avec etwaigen Bananenschalen et übel riechenden Pizzaresten bereits belegt?

seulement sone concept.

@iF
avec RECHTEM Mausklick sur cela corbeille à papier-Icon klappt un Menu sur: ici stehen qui Eigenschaften des Papierkorbes - Standard-Einstellung ist ici 10% qui Plattengrösse. si eh bien so einiges déjà im corbeille à papier schlummert (Fichiers et Dossier et KEINE Bananenschalen) ist irgendwann qui corbeille à papier voll ! (passiert aussi dans Berlin chez den öffentlichen Abfallbehältern) - venons eh bien encore Dossier ou bien Fichiers hinzu, fonctionne qui corbeille à papier sur et qui ankommenden données volonté gelöscht ! - Meiner attitude pour un faute dans Windows - il peut mais qui capacité des Korbes vergrössern - vois dessus (rechter Mausklick usw...) Capiste ?