XProfan

- Página 2 -

Zeich veces Su TestSource.

Kompilieren Marca Separación

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

Eben una vez más versuch - löscht con el hier angegebenen Parametern en el Papierkorb (natürlich muss el Expediente disponible ser

)

GDL

¡Hola Horst,

Yo no Expediente pero una ganzen Ordner samt Unterverzeichnisse para Löschen.
Auch el vierte Parámetro con el Sicherheitsabfrage funzt no.Lo se sin Nachfrage gelöscht.

Zum Verzeichnisse löschen va el Code sí, sólo sólo no en el Papierkorb y sin Nachfrage en Parámetro 4.

Servus
Georg

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

[...]

GDL

Nochmal Yo,

con uno individual Expediente gehts en me auch.Nur con un ganzen Ordner sólo sólo así como Eingangs beschrieben.

Servus
Georg

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

[...]

Vlt. ca. Inkompatiblität el Api a Deinem (alten?) OS?

@Georg
Lo muss a Deinem Sistema mentira. Denn auch con Eingabe uno Ordner/Unterordner/Unterordner/Dateinamen se en el Papierkorb gelöscht. (Mit Rückfrage) Desde que esta Code en meiner Dateiverwaltung 2windows4you ya seit ...ME-Veces sin Problemas nutze, kann lo sólo en Deiner Konfiguration oder Deinem OS mentira

PS: Wenn el Ordner con seinen Unterordnern y Archivos grösser como Kapazität Deines Papierkorbes es, se el Ordner con el kompletten Inhalt inmediatamente gelöscht !

Ah - ¿Quieres decir que ser Papierkorb es möglicherweise con etwaigen Bananenschalen y übel riechenden Pizzaresten ya belegt?

Nur sone Concepto.

@IF
Mit RECHTEM Mausklick el Papierkorb-Icon klappt una Menu en: Hier posición el Características des Papierkorbes - Standard-Einstellung es hier 10% el Plattengrösse. Wenn nun así einiges ya en el Papierkorb schlummert (Archivos y Ordner y KEINE Bananenschalen) es irgendwann el Papierkorb voll ! (passiert auch en Berlin en el öffentlichen Abfallbehältern) - Kommen nun todavía Ordner oder Archivos hinzu, se ejecuta el Papierkorb encima y el ankommenden Daten voluntad gelöscht ! - Meiner Meinung después de una Fehler en Windows - Se puede aber el Kapazität des Korbes vergrössern - sehe oben (rechter Mausklick usw...) Capiste ?