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

당신은 또한 다른 사람이 열 * 동안 * 의미합니까 윈도우 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