找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
可以使用FileSystemObject类的CopyFile方法。
Public Sub CheckFileExists(SourceFile, FullFile)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FileExists(FullFile) Then
'' 例如:SourceFile = HMIRuntime.ActiveProject.Path & "\MyData.xls"
fs.CopyFile SourceFile,FullFile,True
End If
Set fs = Nothing
End Sub
SourceFile:源文件,可以事先手动编辑,保存为只有格式而无数据的原始文件。
FullFile:目标文件(全路径+文件名),需要拼凑日期。
首先检查目标文件存在与否,如果已经存在,则跳过;否则就拷贝文件。
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
找答案微信小程序
提问
搜索
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!