高分求救:VB复制文件问题,在线苦等

[lovban]

想复制"ABC.TXT"文件到"D:\123\ABC.TXT",但是如果"D:\123\ABC.TXT"已经存在这个文件就不复制了,大虾们,怎么实现?

[faysky2]

用Dir函数判断是否存在那个文件，存在就不复制，不存在就复制
Private Sub Command1_Click()
If Dir("D:\123\ABC.TXT") = "" Then
FileCopy App.Path & "/ABC.TXT", "D:\123\ABC.TXT"
End If
End Sub

[faysky2]

一个问题发了两次呀

[faysky2]

楼主好大方

[faysky2]

FileCopy App.Path & "\ABC.TXT", "D:\123\ABC.TXT"

[Dickson]

用NAME命令

[junki]

网上找一找

[weiweiplay]

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub cmdOK_Click()

Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")

If Fso.FileExists("D:\123\ABC.TXT") Then
MsgBox "文件已存在!"
Else
CopyFile "C:\ABC.TXT", "D:\123\ABC.TXT"
End If

End Sub

[tmickey]

如果目标文件存在，提示用户是否覆盖，是就删出目标文件，再复制现有文件，否 就是复制！