Làm thế nào để sao chép một tập tin mở trong VB6?

Question

Sử dụng VB6, làm cách nào để sao chép tệp từ máy tính khác sang máy tính của tôi khi tệp được mở bởi một người khác?

Answer 1

Nếu bạn cố gắng sử dụng câu lệnh FileCopy trên tệp đang mở, lỗi xảy ra. Tuy nhiên, chức năng CopyFile của FileSystemObject không có vấn đề gì với nó, vì vậy hãy sử dụng nó để thay thế. Đầu tiên, bạn sẽ cần phải thêm một tham chiếu đến Microsoft Scripting Runtime (trên trình đơn Project-> References ...). Sau đó, bạn có thể làm điều này:

Dim fso As New FileSystemObject 

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

Answer 2

Bạn cũng có thể sử dụng 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