COPIAR BANCO FIREBIRD

[txt-size=2]IP_SERVIDOR:C:\PASTA_DO_BANCO\MEU_BANCO.FDB[/txt-size]

Private Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type
Private Const FO_DELETE = &H3
Private Const FO_COPY = &H2
Private Const FOF_ALLOWUNDO = &H40
Private Declare Function SHFileOperation Lib [Ô]shell32.dll[Ô] Alias [Ô]SHFileOperationA[Ô] (lpFileOp As SHFILEOPSTRUCT) As Long

Public Function copyFileFolder(ByVal Src$, ByVal Dst) As Boolean
    copyFileFolder = True
    On Error GoTo Out
    If Src = [Ô][Ô] Then
        [ô]MsgBox [Ô]File sumber kosong![Ô], vbOKOnly + vbInformation, [Ô]Informasi[Ô]
        Exit Function
    ElseIf Dst = [Ô][Ô] Then
        [ô]MsgBox [Ô]File tujuan kosong![Ô], vbOKOnly + vbInformation, [Ô]Informasi[Ô]
        Exit Function
    End If
    Dim SHFileOp As SHFILEOPSTRUCT
    With SHFileOp
        [ô]Copy the file
        .wFunc = FO_COPY
        [ô]Source the file
        .pFrom = Src
        [ô]Destination the file
        .pTo = Dst
        [ô]Allow [ô]move to recycle bn[ô]
        .fFlags = FOF_ALLOWUNDO
    End With
    [ô]perform file operation
    SHFileOperation SHFileOp
    [ô]MsgBox [Ô]The file or folder [ô][Ô] + Src + [Ô][ô] has been copyed to destination ![Ô], vbInformation + vbOKOnly, App.Title
    Exit Function
Out:
    copyFileFolder = False
End Function

copyFileFolder File2.Path & [Ô]\[Ô] & File2.FileName, NomeFileDestino