lparameter tcInFile, tcOutFile, tuNoOverWrite
local lcType
local liNoOverWrite
declare ;
integer CopyFile in KERNEL32.DLL ;
string @cSourceFileName, ;
string @cDestFileName, ;
integer iFailIfExists
declare integer GetLastError in KERNEL32.DLL
if type('tcInFile') <> 'C'
Msg_RS('COPYF_RS.PRG:
1','WD')
return -1.
endif
if type('tcOutFile') <> 'C'
Msg_RS('COPYF_RS.PRG: 2','WD')
return -1
endif
Peter Robinson ** Rodes Design ** Virginia