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 May 4, 2024, 7:30 pm This article has been viewed/printed 35125 times. |