George, I don't know how to convert the string returned to type that you specified, please help me...
If is necessary, here is the code of my function...

Parameters MOPER, MFROM, MTO, MFLAGS

* -------------- Valores para MOPER
* #Define FO_MOVE 1
* #Define FO_COPY 2
* #Define FO_DELETE 3
* #Define FO_RENAME 4
* ------------- Valores para MFLAGS
* #Define FOF_SILENT 4
* #Define FOF_RENAMEONCOLLISION 8
* #Define FOF_NOCONFIRMATION 16
* #Define FOF_ALLOWUNDO 64
* #Define FOF_SIMPLEPROGRESS 256
* #Define FOF_NOCONFIRMMKDIR 512

Set Procedure To C:\FOLHAWIN\CORRECAO\PROGRAMS\CLSHEAP.PRG Additive
Local oHeap, nStringBase1, nStringBase2, cFileOpStruct, mReturn
Declare Integer SHFileOperation In SHELL32.Dll ;
STRING @ LPSHFILEOPSTRUCT
oHeap = Createobj('Heap')
nStringBase1 = oHeap.AllocBlob(MFROM + Chr(0) + Chr(0))
nStringBase2 = oHeap.AllocBlob(MTO + Chr(0) + Chr(0))
cFileOpStruct = NumToDWORD(_Screen.HWnd) + ;
NumToDWORD(MOPER) + ;
NumToDWORD(nStringBase1) + ;
NumToDWORD(nStringBase2) + ;
NumToDWORD(MFLAGS) + ;
CHR(0) + ;
NumToDWORD(0) + ;
NumToDWORD(0)
mReturn = (SHFileOperation(@cFileOpStruct) = 0) And ;
(Asc(Substr(cFileOpStruct,19,1)) = 0)
oHeap = ''
Clear Dlls

Return mReturn