Private Sub btnCopiar_Click()
    Dim oWidth, i, oItems, oIncrement As Integer
 
    oWidth = 222
    lblProgressBar.Width = 0
 
    If lblArchivos.ListCount > 0 Then
        oItems = lblArchivos.ListCount
        oIncrement = oWidth / oItems
        For i = 0 To lblArchivos.ListCount - 1
            FileCopy txtCarpetaArchivos.Text & lblArchivos.List(i), txtCarpetaCopiar.Text & lblArchivos.List(i)
            lblProgressBar.Width = lblProgressBar.Width + oIncrement
        Next
    Else
        MsgBox "No hay items para recorrer", vbCritical, "Error"
    End If
End Sub
 
Private Sub btnListar_Click()
    Call ListarArchivos(txtCarpetaArchivos.Text)
End Sub
 
Private Sub UserForm_Initialize()
    txtCarpetaArchivos.Text = "C:\Users\PCSoporte\Desktop\Papeles\Enviar\"
    txtCarpetaCopiar.Text = "E:\EHN\Copiar\"
    lblProgressBar.Width = 0
End Sub
 
Public Sub ListarArchivos(oRuta As String)
    Set oFso = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFso.GetFolder(oRuta)
    Set oFiles = oFolder.Files
 
    For Each oFile In oFiles
        lblArchivos.AddItem oFile.Name
    Next oFile
End Sub