如何复制在VB6打开的文件？ [重复](How do I copy an open file i

这个问题已经在这里有一个答案：

• 我如何复制使用VB6打开的文件？ 3个回答

使用VB6，如何从另一台计算机到计算机复制文件时，文件被其他人开的呢？

Answer 1:

如果您尝试使用FileCopy语句在当前打开的文件，则会出现错误。 然而，FileSystemObject对象的功能的CopyFile没有出了问题，所以请使用可代替。 首先，你需要添加到Microsoft脚本运行一个引用（项目 - >引用...菜单）。 然后，你可以这样做：

Dim fso As New FileSystemObject

fso.CopyFile "\\someOtherComputer\share\foo.mdb", "C:\foo.mdb"

Answer 2:

您也可以使用Windows API

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



Public Function CopyFileA(OldFileName As String, NewFileName As String) As Boolean
    On Error Resume Next

    If CopyFile(OldFileName, NewFileName, False) <> 1 Then
        MsgBox "Error copying file", vbExclamation, 
    Else
        CopyFileA = True
    End If
End Function

文章来源: How do I copy an open file in VB6? [duplicate]