Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как создать архив файлов? И запихнуть туда *bmp, *.gif, *.ini 
V
    Опции темы
IcyJet
Дата 31.5.2006, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 4.5.2006

Репутация: нет
Всего: нет
Как всегда всем здрасте! smile 
Ну с вопросом надеюсь все понятно(с нескольких файлов зделать один).
А вот как это зделать мне совсем непонятно... 
PM MAIL   Вверх
Akina
Дата 31.5.2006, 17:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Использовать архиватор. 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
cardinal
Дата 31.5.2006, 17:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
http://www.activevb.de/tipps/vb6tipps/tipp0579.html 


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
BUGOR
Дата 31.5.2006, 18:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 325
Регистрация: 12.3.2006

Репутация: 3
Всего: 16
Он же не сказал, что ему надо сжать файлы, он сказал просто создать архив файлов? Или он подразумевал что-то типа rar? 
Если просто запихнуть файлы в один, то я набросал следующее, как вытащить думаю сам догадаешься:

Код

Dim ListFile(2) As String
Dim SizeFile(2) As Long
Dim j As Integer
Private arrFile() As Byte
Dim pnt As Long

Private Sub Form_Load()

ListFile(0) = "pic.bmp"
ListFile(1) = "anim.gif"
ListFile(2) = "opt.ini"
SizeFile(0) = FileLen(ListFile(0))
SizeFile(1) = FileLen(ListFile(1))
SizeFile(2) = FileLen(ListFile(2))

Open "C:\1.arc" For Binary As #1
    'Подсчёт размера таблицы(которая созедржитинформацию о имена файлов и их размерах)
    For i = 0 To UBound(ListFile)
        j = j + 4 + Len(ListFile(i)) + 1
    Next i
    Put #1, 1, j
    'Запись таблицы
    j = 0
    For i = 0 To UBound(ListFile)
        Put #1, 3 + j, SizeFile(i)
        j = j + 4
        Put #1, 3 + j, ListFile(i)
        j = j + Len(ListFile(i))
        Put #1, 3 + j, 0
        j = j + 1
    Next i
    'Запись файлов  в один
    pnt = 0
    For i = 0 To UBound(ListFile)
        Put #1, 3 + j + pnt, LoadFile(ListFile(i))
        pnt = pnt + SizeFile(i)
    Next i
Close #1
End Sub

Private Function LoadFile(ByVal sName As String) As Byte()
   Open sName For Binary As #2
      ReDim arrFile(LOF(2) - 1)
      Get #2, , arrFile
   Close #2
   LoadFile = arrFile
End Function
 


--------------------
Живу недоумевая, всё время хочу понять...
http://hunger.ru 
PM MAIL WWW ICQ   Вверх
IcyJet
Дата 1.6.2006, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 4.5.2006

Репутация: нет
Всего: нет
БОлбшое спасибо, а можно про открывание файлов Binary поподробнее расказать (еще для каких целей можно использовать и т.д.)  

Это сообщение отредактировал(а) IcyJet - 1.6.2006, 13:23
PM MAIL   Вверх
BUGOR
Дата 1.6.2006, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 325
Регистрация: 12.3.2006

Репутация: 3
Всего: 16
IcyJet, ну как для каких? Да в принципе хоть для чтения текстовых файлов, хоть для чтения файлов последовательного доступа. 


--------------------
Живу недоумевая, всё время хочу понять...
http://hunger.ru 
PM MAIL WWW ICQ   Вверх
IcyJet
Дата 1.6.2006, 16:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 4.5.2006

Репутация: нет
Всего: нет
Ок, все понятно, Binary-почти уневирсал, так? 
PM MAIL   Вверх
XPurple
Дата 2.6.2006, 05:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 140
Регистрация: 4.5.2006
Где: Челябинск

Репутация: 1
Всего: 1
Для работы со всеми символами, а не только видимыми 
--------------------
Кто никогда ни о чем не спрашивает: тот либо знает все, либо не знает ничего.  Не помню, кто сказал, может быть, я   (с) 
PM MAIL   Вверх
IcyJet
Дата 2.6.2006, 16:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 4.5.2006

Репутация: нет
Всего: нет
Теперь все ясно smile , спасибо всем! 
PM MAIL   Вверх
Игорь
Дата 25.6.2006, 12:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 16.6.2006

Репутация: 1
Всего: 1
Это можно сделать не только в VB, еще и *.bat файлом:

Код

copy /b file1.ini+file2.gif+file3.bmp NEWfile.(любой формат)


Пишеш в блокноте, сохраняешь с расширением *.bat, суешь нужные файлы в одну дирректорию и запускаешь  smile  
PM MAIL ICQ   Вверх
IcyJet
Дата 26.6.2006, 19:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 4.5.2006

Репутация: нет
Всего: нет
Так даже проще, а как извлечь?

З.ы И где можно найти хорошую инфу про *.bat'ы 
PM MAIL   Вверх
Игорь
Дата 26.6.2006, 22:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 16.6.2006

Репутация: 1
Всего: 1
Извлечь можно раскрывая полученный файл в блокноте и разбирать где чье. По другому никак  smile 
Я про баты узнал по рассылке на сайте маил.ру, по теме "Помощь WEB-программисту".
Бат удобная штука для создание WEB-сайтов. Особенно удобно тем, кто не умеет создавать странички, а ему нужно обновить текст. 
PM MAIL ICQ   Вверх
IcyJet
Дата 27.6.2006, 10:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 4.5.2006

Репутация: нет
Всего: нет
Ну тогда это не сильно потходит...  но на заметку взять можно smile ... 
PM MAIL   Вверх
Игорь
Дата 28.6.2006, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 16.6.2006

Репутация: 1
Всего: 1
Ради прикола почему бы и нет  smile  
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0602 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.