反正閒,給你一段代碼
FUNCTION Long CopyFileA(Ref String cSourceFile,Ref String cTargetFile,Ref Boolean bReserve) LIBRARY "Kernel32.DLL"
FUNCTION Long DeleteFileA(Ref String lpFileName) LIBRARY "Kernel32.DLL"
if fileexists(ls_TargetFullName) then// 覆蓋上一版本
DeleteFileA( ls_TargetFullName )
end if
li_ret1 = CopyFileA(ls_path, ls_TargetFullName, lb_Reserve)
If li_ret1 = 0 Then
Messagebox('Prompt','Copy file fail',stopsign!)
End If