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