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