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