＋设为首页 ＋添加到收藏夹
我将两个文件添加到工程1的相关文件中,想通过工程1编译出的软件将这两个文件拷贝到用户指定目录下,当然,软件要能在拷贝前先检测所指定目录下是否存在这两个文件(文件名相同即可),若存在,则将其删除,然后在进行拷贝.
我是新手,请问怎样实现?
我的E-mail:listenstudio@hotmail.com
谢谢.
用copyfile api:
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
然后 copyfile 原文件, 新文件, False
检查是否有相应文件,用dir函数.如果存在则返回文件名,否则返回空字符串.
不需要API，FileCopy + DIR()就可以了
If Dir("目标")<>"" Then
存在
Kill "目标"
End If
FileCopy "源","目标"
