Par2: Copy file using API call 1997-07-14 -- A. Ujlaki MODULE('API')
CopyFile(*CSTRING,*CSTRING,SHORT),SHORT,PROC,DLL,RAW,PASCAL,NAME('CopyFileA')
END
retcode short
filein cstring(255)
fileout cstring(255)
filein='c:\myfile'
fileout='c:\newfile'
RetCode=CopyFile(filein,fileout,0)
It's that simple :-)
Printed October 24, 2026, 3:03 pm This article has been viewed/printed 36228 times. |