源文件="f:\AAA.txt"
&&此地不分大小写,因为vfp不分大小写
复制到="c:\"
&&和源文件保持一致,磁盘中保存的样子,不是上面的样子
DECLARE long CopyFile IN "kernel32" String,String,long
Declare Long GetLongPathName in win32api String, String @, Long
IF FILE(源文件)
IF FILE((ADDBS(复制到)+JUSTFNAME(GetOsFileName(源文件))))
?"文件已存在,复制失败"
else
IF CopyFile(源文件,(ADDBS(复制到)+JUSTFNAME(GetOsFileName(源文件))),0)=1
?'ok'
ENDIF
endif
ELSE
?"源文件不存在,请检查"
endif
RETURN
Function GetOsFileName(tcFileSpec)
Local nLen, cBuff
m.nLen = 260
m.cBuff = Replicate(Chr(0), m.nLen)
m.nLen = GetLongPathName(m.tcFileSpec, @ m.cBuff, m.nLen)
Return Left(m.cBuff, m.nLen)
EndFunc
这段代码是根据一片空白的代码整合出来的