txt - ¿Cómo copio un archivo abierto en VB6?

manejo de archivos en visual basic

Question

Usando VB6, ¿cómo copio un archivo de otra computadora a mi computadora cuando otra persona abre el archivo?

Answer 1

Si intenta utilizar la instrucción FileCopy en un archivo actualmente abierto, se produce un error. Sin embargo, la función CopyFile de FileSystemObject no tiene ningún problema con ella, así que úsala en su lugar. Primero, deberá agregar una referencia al Microsoft Scripting Runtime (en el menú Proyecto-> Referencias ...). Entonces puedes hacer esto:

Dim fso As New FileSystemObject

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

Answer 2

También puedes usar la API de 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