powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / [help] Архивация файлов
7 сообщений из 7, страница 1 из 1
[help] Архивация файлов
    #36011697
ABinker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Приветствую всех! Тут у меня такая проблемка. Нужно создать архив, предварительно добавив в него несколько файлов. Ниже приведен код, который добавит только 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
[help] Архивация файлов
    #36011733
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Из кода ничего не понятно. Кто такие zArgc, zZipFileName, zZipFileNames.zFiles?


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

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

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


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

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

необходимо что бы это делала программа
...
Рейтинг: 0 / 0
[help] Архивация файлов
    #36011760
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: 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
[help] Архивация файлов
    #36011809
ABinker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
это то что нужно!! спасибо огромное!)
...
Рейтинг: 0 / 0
[help] Архивация файлов
    #36012429
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Еще перед циклом поменять размерность массива надо на ту что определилась-1: redim
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / [help] Архивация файлов
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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