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 25, 2026, 12:40 am This article has been viewed/printed 36230 times. |