Comment copier un fichier ouvert dans VB6?

Question

À l'aide de VB6, comment copier un fichier d'un autre ordinateur sur mon ordinateur lorsque le fichier est ouvert par une autre personne?

Answer 1

Si vous essayez d'utiliser l'instruction FileCopy sur un fichier actuellement ouvert, une erreur se produit. Toutefois, la fonction CopyFile de FileSystemObject ne pose aucun problème, utilisez-la à la place. Tout d'abord, vous devrez ajouter une référence à Microsoft Scripting Runtime (dans le menu Projet-> Références ...). Ensuite, vous pouvez le faire:

Dim fso As New FileSystemObject 

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

Answer 2

Vous pouvez également utiliser l'API Windows

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