Много файлове <--> един файл / Компютри и Интернет / Visual Basic

Привет,

значи трябва ми следното:
Имам най-различни файлове - exe/dll/jpg/doc/gif/txt/xls/ocx ... - може да са всякакви.
Искам да събера механично няколко от тях в един общ файл. После от тоя общ файл да мога да извадя всеки от файловете съдържащи се в него, и да го запазя като отделен, напълно функциониращ файл, работещ точно като оригинала.

Т.е имам примерно test.exe, pic.jpg, blah.txt - от всичките тях правя един файл, примерно files.all.
После от files.all да мога да извлека и запазя отново като отделен файл всичките test.exe, pic.jpg, blah.txt заедно или само който (които) и да е от тях.

Трябва ми точно това, а не примерно да правя зип от всичките и после да вадя файлове от зип-а.
Може да има отделен тхт файл в който се пази информация къде започва и свършва всеки от файловете във files.all

От известно време се мъча без грам резултат(положителен де), дайте акъл.

Благодаря!

Private Sub subRead()

Dim intStart As Long
Dim intLenght As Long
Dim strBytes As String

intStart = 1
intLenght = 32493

Open "files.all" For Binary As #1
strBytes = Space(intLenght)
Get #1, intStart, strBytes
Close #1

If Dir("files.exe") <> "" Then Kill "files.exe"
Open "files.exe" For Binary As #1
Put #1, , strBytes
Close #1

intStart = 32494
intLenght = 263512

Open "files.all" For Binary As #1
strBytes = Space(intLenght)
Get #1, intStart, strBytes
Close #1

If Dir("files.jpg") <> "" Then Kill "files.exe"
Open "files.jpg" For Binary As #1
Put #1, , strBytes
Close #1

End Sub

Private Sub subWrite()

Dim intStart As Long
Dim strBytes As String

Open "files.jpg" For Binary As #1
strBytes = Space(LOF(1))
Get #1, , strBytes
Close #1

intStart = 32494

Open "files.all" For Binary As #1
Put #1, intStart, strBytes
Close #1

End Sub