'*******************************************
'*** Programado por Kizar
'*******************************************

'Si pulsamos el boton añadir agregamos el archivo al listview
Private Sub añadir_Click()
    cd.DialogTitle = "Selecciona el archivo a juntar"
    cd.Filter = "Todos los archivos *.*|*.*"
    cd.ShowOpen
    If cd.FileName = "" Then Exit Sub
    lv.ListItems.Add(, , cd.FileName).SubItems(1) = ChangeUnits(FileLen(cd.FileName))
    Call CalculateSize
    cd.FileName = ""
End Sub

'Si puslamos el boton eliminar eliminamos el item seleccionado
Private Sub eliminar_click()
    If lv.ListItems.Count = 0 Then Exit Sub
    lv.ListItems.Remove lv.SelectedItem.Index
    Call CalculateSize
End Sub

'Cambiamos a unidades mas asequibles
Private Function ChangeUnits(num As Long) As String
    If num > 1048576 Then
        ChangeUnits = Round(num / 1048576, 2) & " Mb"
    ElseIf num > 1024 Then
        ChangeUnits = Round(num / 1024, 2) & " Kb"
    Else
        ChangeUnits = num & " by"
    End If
End Function

'Calculamos el tamaño de todos los archivos del listview
Private Sub CalculateSize()
    Dim size As Long, i As Integer
    For i = 1 To lv.ListItems.Count
        size = size + FileLen(lv.ListItems.item(i).Text)
    Next i
    Label1.Caption = "Tamaño total: " & ChangeUnits(size)
End Sub