hi,
thank you for reply,
but what i need exactly you can see that via
Check download file #9345. It can supply the animation you are looking for


form.animation

thanks.
>Try...
>
>#DEFINE PROGRESO 0x100
>
>cOrigen = "c:\DatFire\*.prg"
>cDestino = GetDir("","Carpeta destino", "Seleccionar directorio")
>
>If !Empty(cDestino)
> oShell = CREATEOBJECT("Shell.Application")
> oFolder = oShell.Namespace(cDestino)
> oFolder.CopyHere(cOrigen, PROGRESO)
>EndIf