XProfan

- Página 2 -

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 ?

Horst

Capiste ?

Hm nö - erklär otra vez.

Hm! Yo glaube langsam versteh ego - aber - hm ne doch net. Como also?

- Página 3 -

GDL

Also el Papierkorb es leer y el Testverzeichniss es lediglich ca. 100k voll.
Alles qué con el WinExplorer oder otro Programmen gelöscht voluntad se se vorher einwandfrei ne Sicherheitsabfrage comenzó y schön ordentlich en el Papierkorb geschoben.

Der einzigste Diferencia beim BS es el, el du XPhome y yo XPprof habe.

Servus
Georg

Windows7 Xprofan 8,9,10 und 11
Musikwelt: [...]

Verwitwet - Forum für Betroffene : [...]

Sí aber nun zeig doch veces exakt Su código

Vlt. steckt el Diablo en el Detalle.

GDL

Yo habe al Code nichts gemacht. Yo habe simplemente esta Codeteil testen mögen.
Kompilieren Marca Separación

Def @Shfileoperation(1) !SHELL32,SHFileOperationA

Proc Fileaction

    Parameters Action$,File$,File2$,Noconfirm%,Norecycle%
    Parameter 1: Auszuführende Aktion=COPY, DELETE, RENAME, MOVE
    Parameter 2: Quelldatei
    Parameter 3: Zielldatei
    Parameter 4: 0 = User erst fragen, 1= ohne Nachfrage löschen
    Parameter 5: 0 = In Papierkorb verschieben, 1= endgültig löschen
    Declare Fof_flag%,Action&,Do%,Fehler&
    Declare Opstruct#,File#,File2#
    Let Do%=0

    If @Upper$(Action$)=RENAME

        Let Action&=4

    Elseif @Upper$(Action$)=COPY

        Let Action&=2

    Elseif @Upper$(Action$)=MOVE

        Let Action&=1

    Elseif @Upper$(Action$)=DELETE

        Let Action&=3

    Else

        @Messagebox(Diese Funktion ist nicht bekannt!,Aktion wird nicht ausgeführt!,64)
        Let Do%=1

    Endif

    If Do%=0

        Case Noconfirm% : Let Noconfirm%=16
        Casenot Norecycle% : Let Norecycle%=64
        Let Fof_flag% = @Or(Noconfirm%,Norecycle%)
        Dim Opstruct#,30
        Dim File#,Add(Len(File$),2)
        Dim File2#,Add(Len(File2$),2)
        String File#,0=@Add$(File$,@Chr$(0))
        String File2#,0=@Add$(File2$,@Chr$(0))
        Long Opstruct#,0=%Hwnd Handle des aufrufenden Fensters
        Long Opstruct#,4=Action&
        Long Opstruct#,8=File#  pfrom : hier der zu löschende Ordner
        Long Opstruct#,12=File2#   pto (muß 0 oder eine Bereichvar. mit Zieldateinamen                        z.B. bei Umbenennung sein
        Word Opstruct#,16=Fof_flag%
        Long Opstruct#,18=0  Hier 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
        Let Fehler&=@Shfileoperation(Opstruct#)

        If @Equ(@Long(Opstruct#,18),1)

            @Messagebox(Die Dateioperation wurde abgebrochen!,Operation abgebrochen!,64)

        Elseif @Neq(Fehler&,0)

            @Messagebox(Es ist ein Fehler aufgetreten,ShFileOperation +@Str$(Fehler&),16)

        Endif

        Dispose File#
        Dispose File2#
        Dispose Opstruct#

    Endif

Endproc

Fileaction DELETE,C:	est,,0,0

sonst nichts, quería sólo guggen si Yo brauchen kann.(Kann lo aber de una otro Grund eh no brauchen).Como lo anscheinend sólo no yo en el va, lassma todos nun.

Servus
Georg

P.S. En Kopieren klappt el 4. Parámetro, hier se nachgefragt si en una ya vorhandenem Ordner oder File überschrieben voluntad se. Also en Parámetro 4 = 0.
En Parámetro 1 se sin Warnung darüber kopiert.
Nur beim Löschen llevará a cabo siempre ratzfatz endgültig verfahren.

Windows7 Xprofan 8,9,10 und 11
Musikwelt: [...]

Verwitwet - Forum für Betroffene : [...]

@Georg
Mein Code unterscheidet se una wenig vom Code, el Usted Andreas geschickt ha. Meiner verlangt sólo DREI Parámetro - Er es sólo para el Löschen zuständig - Teste esta Code veces