XProfan

SHFileoperation("Copy","C:\Test","C:\Test2",1,1,0)

Proc SHFileoperation

    Paramètres opération$,File$,File2$,confirm%,recycle%,can%
    Déclarer opstruct#,file#,file2#,title#,operation&
    Var FOF_Flag% = 1 | 512 |  2048'FOF_MULTIDESTFILES,FOF_NOCONFIRMMKDIR,FOF_NOCOPYSECURITYATTRIBS
    Faible title#,24
    string title#,0 = "Fileoperation Progress"

    Select upper$(opération$)

        CaseOf "RENAME"

        operation&=4

        CaseOf "COPY"

        operation&=2

        CaseOf "MOVE"

        operation&=1

        CaseOf "DELETE"

        operation&=3

    endselect

    cas confirm%:confirm%=16
    Casenot recycle%:recycle%=64

    Si can%

        FOF_Flag% = FOF_Flag% | confirm% | recycle% | $20 | 8'$20 = FOF_WANTMAPPINGHANDLE 8 = FOF_RENAMEONCOLLISION

    D'autre

        FOF_Flag% = FOF_FLAG% | confirm% | recycle%'16 = FOF_NOCONFIRMATION,64 = FOF_ALLOWUNDO

    endif

    Faible opstruct#,30:Faible file#,(Len(file$)+2):Faible file2#,(Len(file2$)+2)
    String file#,0=(file$+Chr$(0)):String file2#,0=(file2$+Chr$(0))
    Long opstruct#,0=GetActiveWindow()' Handle des aufrufenden Fensters
    Long opstruct#,4=operation&'quelle Dateioperation gemacht wird
    Long opstruct#,8=file#' pfrom : ici qui Fichiers pour qui opération
    Long opstruct#,12=file2#'pto ici qui Zieldateinamen ou bien 0
    Word opstruct#,16=FOF_Flag%
    Long opstruct#,18=0'chez abbruch steht ici 1 seulement chez langen Operationen
    Long opstruct#,22=0' muss toujours zéro son, ici wird handle pour SHNameMappings gesetzt chez Kopie
    Long opstruct#,26=Title#'Überschrift des Fortschrittsdialogs chez langen Operationen
    Var FEHLER&=Externe("SHELL32","SHFileOperationA",opstruct#)

    IF (long(opstruct#,18)=1)

        MessageBox("Die Dateioperation wurde abgebrochen!","Abbruch par Benutzer!",64)

    ELSEIF (Fehler& <> 0)

        MessageBox(str$(fehler&),"Es est un faute aufgetreten",16)

    EndIf

    Si val($WinVer)> 5.0

        Cas LONG(opstruct#,22) <> 0:Externe("Shell32","SHFreeNameMappings",LONG(opstruct#,22))'min XP

    endif

    Dispose file#,file2#,opstruct#,title#
    Retour Fehler&

ENDPROC