Copiar Archivo en VB

[ManuNic]

hola a tod@s

tengo en mi aplicacion esta linea de comando para copiar un archivo a un respaldo, pero segun la ayuda me dice que si se esta utilizando el archivo no se podra copiar y efectivamente asi es, como hago para copiar el archivo aunque se este usando?
FileCopy xorigen, xdestino

gracias de antemano

[Slappter]

Iniciado por ManuNic

hola a tod@s

tengo en mi aplicacion esta linea de comando para copiar un archivo a un respaldo, pero segun la ayuda me dice que si se esta utilizando el archivo no se podra copiar y efectivamente asi es, como hago para copiar el archivo aunque se este usando?
FileCopy xorigen, xdestino

gracias de antemano

Los archivos tienen que estar necesariamente cerrados, y ahi si se puede usar el comando FileCopy

Al menos desde el lenguaje Visual Basic y las características que el mismo ofrece, es lo unico que se puede hacer. Tal vez, desde otro lenguaje se permita

[elsaky]

esto te deja copiar filas en uso
saludos

pegalo en un modulo

Option Explicit
Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type

Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _
(lpFileOp As SHFILEOPSTRUCT) As Long

Private Const FO_COPY = &H2
Private Const FOF_ALLOWUNDO = &H40

Public Sub SHCopyFile(ByVal from_file As String, ByVal to_file As String)
Dim sh_op As SHFILEOPSTRUCT

With sh_op
.hWnd = 0
.wFunc = FO_COPY
.pFrom = from_file & vbNullChar & vbNullChar
.pTo = to_file & vbNullChar & vbNullChar
.fFlags = FOF_ALLOWUNDO
End With

SHFileOperation sh_op
End Sub

[ManuNic]

ok, voy a probarlo