Danilo, Ghost ... o FileCopy funciona muito bem para cópias simples, porêm não copia arquivo cujo nome seja referência a alguma máquina na rede ex: \servidormeudirimagensfoto001.bmp.
A melhor solução é utilizar a API SHFileOperation
Crie um Módulo e Jogue Tudo Isto La Dentro
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
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
Private Const FO_COPY As Long = &H2
Private Const FOF_ALLOWUNDO As Long = &H40
Private Const FOF_NOCONFIRMATION As Long = &H10
Publi Sub CopiarArq(ByVal Origem As String, ByVal Destino As String)
Dim RST As Long
Dim FLOP As SHFILEOPSTRUCT
'
FLOP.hWnd = 0
FLOP.wFunc = FO_COPY
'
' Arquivo de origem:
'
FLOP.pFrom = Origem & vbNullChar & vbNullChar
'
' Arquivo de destino:
'
FLOP.pTo = Destino & vbNullChar & vbNullChar
'
' Nâo pergunta nada
'
FLOP.fFlags = FOF_NOCONFIRMATION
'
RST = SHFileOperation(FLOP)
'
If RST <> 0 Then
'
' Erro na cópia
'
MsgBox Err.MaxDllError, vbCritical Or vbOKOnly
Else
If FLOP.fAnyOperationsAborted <> 0 Then
MsgBox "Falha na cópia!!!", vbCritical Or vbOKOnly
End If
End If
End Sub
Na Hora de Usar: CopiarArq "c: este.bmp", "\servidorimagensovo.bmp"
