VB6で開いているファイルをコピーするにはどうしたらいいですか？

Question

VB6を使用すると、ファイルを別の人が開いたときに、別のコンピュータから自分のコンピュータにファイルをコピーするにはどうすればよいですか？

Answer 1

現在開いているファイルでFileCopyステートメントを使用しようとすると、エラーが発生します。ただし、FileSystemObjectのCopyFile関数に問題はないので、代わりに使用してください。まず、Microsoft Scripting Runtimeへの参照を追加する必要があります（Project-> References ...メニューにあります）。そして、あなたがこれを行うことができます：

Dim fso As New FileSystemObject 

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

Answer 2

あなたはまた、

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