Hola:
Esta es mi idea Inicial, crear un nuevo proyecto con los siguientes controles
1 FileListBox con el nombre por omisión File1 para ver algunos archivos
2 Label como Label1 y Label2 para ver Nombre y Tamaño archivo elegido
1 ListBox con el nombre List1 para mostrar después las cabeceras Comprimidas
1 Boton Command1 para ejecutar la muestra de Cabeceras
Código:
Option Explicit
Private Sub Command1_Click()
' El Command Abre el C:\Prueba.tot y muestra los nombres
List1.Clear
Dim Posicion As Long
Dim Nombre As String * 20
Dim Bytes As String * 10
Open "C:\Prueba.tot" For Binary As #1
Posicion = 1
Do
Get #1, Posicion, Nombre
Get #1, Posicion + 20, Bytes
List1.AddItem Trim$(Nombre) & " " & Trim$(Bytes)
Posicion = Posicion + 30 + Val(Bytes)
If Posicion > LOF(1) Then Exit Do
Loop
Close #1
End Sub
Private Sub File1_Click()
' Click en un fichero del File nos muestra Nombre y Bytes
Label1 = File1.FileName
Open Label1 For Input As #1
Label2 = LOF(1)
Close #1
End Sub
Private Sub File1_DblClick()
' Doble Clic, lo añade al archivo de momento C:\Prueba.tot
Dim Datos As String
Open "C:\Prueba.tot" For Binary As #1
Open File1.Path & "\" & Label1 For Binary As #2
Datos = Space$(LOF(2))
Get #2, 1, Datos
Close #2
Put #1, LOF(1) + 1, Left$(Label1 & Space$(20), 20) & Right$(Space$(10) & Label2,
10) & Datos
Close #1
End Sub
De momento es lo básico para empezar con mi idea, si quieres pruébalo y comentamos
Saludos