Encapsulado de Archivos
[Corp Capsule: mete varios archivos dentro de uno, y luego sácalos]

Fecha: 30/Abr/2005 (30/Abril/2005)
Autor: Walter Martínez O.
waltermilenium@hotmail.com
http://www.geocities.com/gnivel4/

 


Aún hay quienes no dejamos el Visual Basic 6.0 por el .NET, Pero algún día caeré en la tentación... Bueno, este ejemplitoes un poco viejo, y lo encontré en mi baúl de recuerdos, de cuando estaba recién aprendiendo a programar, ¬_¬ aunque eso fue sólo hace como dos años (no es tanto), la idea es poner varios archivos diferentes dentro de uno, el cual incluye el nombre del archivo y su peso, para que no lo perdamos. y luego podemos acceder a cada uno de estos archivos y visualizarlos, algo parecido a lo que hace el winzip pero todavía sin ningún algoritmo de compresión T_T....

Aquí está el código, (aunque no entero, porque no está muy bien redactado, les dije que es antiguo ¿cierto?):

No les pongo el código entero porque es mejor que lo descarguen: cScrollBar.



    ''' esta es la base del código, la cual graba en el archivo .cap el nombre y peso 
    '''de los archivos menores

    Open ArchivoOut For Binary As #hFile
        Do While i < List1.ListCount
            FTam = List2.List(i)
    Get #hFile, Position, Begin

            data = GetFileData(List1.List(i))
            DoEvents
            InSize = Len(data)
            FTam = InSize
            FDes = Len(InSize) + 1 + Len(List2.List(i)) + 1
            Cabecera = FDes & "|" & List2.List(i) & "|" & FTam & "|"

    Put #hFile, , FDes & "|" & List2.List(i) & "|" & FTam & "|"
    Put #hFile, , data
            data = ""
            Position = Position + Len(Cabecera) + InSize

            i = i + 1
        Loop
    Close #hFile

Cualquier duda me escriben a mi correo.

 


ir al índice

Fichero con el código de ejemplo: Ciberwalter_CorpCapsule.zip - 334 KB