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