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 November 21, 2024, 6:58 am This article has been viewed/printed 35213 times. |