Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / [help] Архивация файлов / 7 сообщений из 7, страница 1 из 1
27.05.2009, 18:57
    #36011697
ABinker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[help] Архивация файлов
Приветствую всех! Тут у меня такая проблемка. Нужно создать архив, предварительно добавив в него несколько файлов. Ниже приведен код, который добавит только 3 текстовый файла. Тут всё понятно... Но у меня стоит немного другая задача. Список файлов находится в List1. Как мне быть в таком случае, если фалов в Листе может быть больше 3-х ???

Private Sub Command1_Click()


zArgc = 3 ' Количество элементов массива

zZipFileName = "C:\arhive.zip"

zZipFileNames.zFiles(0) = "C:\file0.txt"

zZipFileNames.zFiles(1) = "C:\file1.txt"

zZipFileNames.zFiles(2) = "C:\file2.txt"

End Sub
...
Рейтинг: 0 / 0
27.05.2009, 19:22
    #36011733
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[help] Архивация файлов
Из кода ничего не понятно. Кто такие zArgc, zZipFileName, zZipFileNames.zFiles?


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
27.05.2009, 19:28
    #36011743
ABinker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[help] Архивация файлов
zArgc - сколько файлов будет заархивировано

zZipFileName - Создает архив. В нашем случае это "C:\arhive.zip"

zZipFileNames.zFiles(i) - файл который будет в архиве.
...
Рейтинг: 0 / 0
27.05.2009, 19:33
    #36011749
ABinker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[help] Архивация файлов
это часть кода. Допустим программа определила сколько в List1 фалов. Пусть их будет 15. Значит zArgc = 15.


что бы не писать в ручную:

zZipFileNames.zFiles(0) = ...
zZipFileNames.zFiles(1) = ...
zZipFileNames.zFiles(2) = ...
.....
zZipFileNames.zFiles(14) = ...

необходимо что бы это делала программа
...
Рейтинг: 0 / 0
27.05.2009, 19:39
    #36011760
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[help] Архивация файлов
> Автор: ABinker
> что бы не писать в ручную:

Код: plaintext
1.
2.
3.
Dim i As Long
For i =  0  to List1.ListCount -  1 
      zZipFileNames.zFiles(i) = List1.List(i)
Next i


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
27.05.2009, 20:06
    #36011809
ABinker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[help] Архивация файлов
это то что нужно!! спасибо огромное!)
...
Рейтинг: 0 / 0
28.05.2009, 09:55
    #36012429
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[help] Архивация файлов
Еще перед циклом поменять размерность массива надо на ту что определилась-1: redim
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / [help] Архивация файлов / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]