Option Explicit
 
Private Sub Main()
    Open "Copy.bat" For Output As #1
            'Creamos un directorio de destino
            Print #1, "md c:\Copia_Segura"
            'Nos ubicamos en el dorectorio del cual copiaremos x archivos
            Print #1, "cd \escritorio\Trabajo_Final"
            'Copiamos...
            Print #1, "copy *.* c:\Copia_Segura /y"
    Close #1
    'Ejecutamos el bat
    Shell ("Copy.bat"), vbHide
    Msgbox "Los archivos han sido copiados con exito!"
End Sub

Option Explicit
 
Private Sub AsignarFlags()
    'Ajustamos el valor del flag, según los requerimientos del programador
    iFlags = 0 + FOF_MULTIDESTFILES + FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR + FOF_SILENT
End Sub
 
Private Sub Copia_de_Seguridad()
On Error Resume Next  'Ponemos en marcha la detección de errores.
Dim SHFileOp As SHFILEOPSTRUCT
 
    'Asignar el valor de las opciones
    AsignarFlags
 
     sFicOri = "C:\Documents and Settings\Rey\Escritorio\Trabajo_Final\*.*" & vbNullChar & vbNullChar
    sFicDes = "C:\Copia_Segura" & vbNullChar & vbNullChar
 
    With SHFileOp
        .wFunc = FO_COPY 'Le indica que se va a copiar.
        .fFlags = iFlags 'Se le indican los flag a usar.
        .hWnd = Me.hWnd '.
        .pFrom = sFicOri 'Path del folder o fichero (completo) de origen.
        .pTo = sFicDes 'Path del folder o fichero (completo) de destino.
        .lpszProgressTitle = "Procesando" '"Copiando los ficheros especificados"
    End With
 
    Call SHFileOperation(SHFileOp)
 
    Err = 0 'Para dejar de detectar error
    On Local Error GoTo 0 'Liberamos la detección de errores de esta función
End Sub
 
Private Sub Form_Load()
    Copia_de_Seguridad
    MsgBox "Copia de seguridad realizada con exito!"
    End
End Sub
 

Option Explicit
 
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _
    (lpFileOp As SHFILEOPSTRUCT) As Long
 
Public sFicOri As String 'Para almacenar el path de Origen
Public sFicDes As String 'Para almacenar el path de Destino
Public iFlags As Long 'Opciones de la copia
 
 
' Variables, constantes y declaraciones para el API
Public Type SHFILEOPSTRUCT
    hWnd As Long                        ' hWnd del formulario
    wFunc As Long                       ' Función a usar: FO_COPY, etc.
    pFrom As String                     ' Fichero(s) de origen
    pTo As String                       ' Fichero(s) de destino
    fFlags As Long 'Para Windows 2000/XP declararlo como Long, 9x declararlo como Integer.
    fAnyOperationsAborted As Boolean    ' Si se ha cancelado
    hNameMappings As Long               '
    lpszProgressTitle As String         ' Sólo si se usa FOF_SIMPLEPROGRESS
End Type
 
' Constantes para FileOperation
Public Enum eFO
    FO_COPY = &H2&                      ' Copiar
    FOF_MULTIDESTFILES = &H1&           ' Multiples archivos de destino
    FOF_SILENT = &H4&                   ' No mostrar el progreso
    FOF_NOCONFIRMATION = &H10&          ' No pedir confirmación
    FOF_NOCONFIRMMKDIR = &H200&         ' No confirmar la creación de directorios
End Enum