VB6'da açık bir dosyayı nasıl kopyalarım?

Question

VB6'yı kullanarak, dosya başka bir kişi tarafından açıldığında, başka bir bilgisayardan bir dosyayı bilgisayarıma nasıl kopyalarım?

Answer 1

Şu anda açık olan bir dosyada FileCopy deyimini kullanmaya çalışırsanız, bir hata oluşur. Ancak, FileSystemObject öğesinin CopyFile işlevinde bir sorun yoktur, bunun yerine bunu kullanın. Öncelikle, Microsoft Scripting Runtime (Proje -> Referanslar ... menüsünde) bir referans eklemeniz gerekecektir. Sonra bunu yapabilirsiniz:

Dim fso As New FileSystemObject 

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

Answer 2

Ayrıca başka bir kişi tarafından açılır * yaparken * kastediyorsunuz, 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