XProfan

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

Proc SHFileoperation

    Parámetros operation$,File$,File2$,confirm%,recycle%,can%
    Declarar opstruct#,file#,file2#,title#,operation&
    Var FOF_Flag% = 1 | 512 |  2048'FOF_MULTIDESTFILES,FOF_NOCONFIRMMKDIR,FOF_NOCOPYSECURITYATTRIBS
    Dim title#,24
    cadena title#,0 = "Fileoperation Progress"

    Select upper$(operation$)

        CaseOf "RENAME"

        operation&=4

        CaseOf "COPY"

        operation&=2

        CaseOf "MOVE"

        operation&=1

        CaseOf "DELETE"

        operation&=3

    endselect

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

    If can%

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

    Más

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

    endif

    Dim opstruct#,30:Dim file#,(Len(file$)+2):Dim file2#,(Len(file2$)+2)
    String file#,0=(file$+Chr$(0)):String file2#,0=(file2$+Chr$(0))
    Largo opstruct#,0=GetActiveWindow()' Handle des aufrufenden Fensters
    Largo opstruct#,4=operation&'Welche Dateioperation gemacht se
    Largo opstruct#,8=file#' pfrom : hier el Archivos para el Operation
    Largo opstruct#,12=file2#'pto hier el Zieldateinamen oder 0
    Word opstruct#,16=FOF_Flag%
    Largo opstruct#,18=0'En abbruch es hier 1 sólo en langen Operationen
    Largo opstruct#,22=0' muss siempre Null ser, hier se handle para SHNameMappings gesetzt en Kopie
    Largo opstruct#,26=Title#'Überschrift des Fortschrittsdialogs en langen Operationen
    Var FEHLER&=Externo("SHELL32","SHFileOperationA",opstruct#)

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

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

    ELSEIF (Fehler& <> 0)

        MessageBox(str$(fehler&),"Es es una Fehler aufgetreten",16)

    EndIf

    If val($WinVer)> 5.0

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

    endif

    Disponer file#,file2#,opstruct#,title#
    Volver Fehler&

ENDPROC