Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Заархивировать папку и сохранить её в эту же папку 
V
    Опции темы
Palladin
Дата 9.6.2009, 23:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
Собстно при выполнении процедуры, формируются 5 файлов, создается папка в которую они сохраняются, теперь мне нужно взять эту папку сжать её WinRar и полученый архив кинуть в эту папку...



--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Данкинг
Дата 9.6.2009, 23:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(Palladin @  10.6.2009,  00:23 Найти цитируемый пост)
нужно взять эту папку сжать её WinRar и полученый архив кинуть в эту папку...

Это как так? smile В любом случае, смотри справку по ключам командной строки WinRar и запускай через ShellExecute.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Palladin
Дата 9.6.2009, 23:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
Мот вопрос криво описал...

создаю на диске F папку ATA, в неё закидываю файлы: 1.txt 2.txt 3.txt 4.txt 5.txt //это я сделал
теперь мне нужно взять папку АТА, заархивировать её WinRar и кинуть обратно в папку ATA 


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
AntonN
Дата 9.6.2009, 23:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 18
Код

Rar.exe a "C:\files\ata\ata.rar" "C:\files\ata\"



--------------------
user posted image
PM MAIL WWW   Вверх
Palladin
Дата 10.6.2009, 00:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
Что-то я перемудрил, может кто поправить?
пишу так:
Код

s:='A -ag+YYYY.MMM.DD...HH-MM -dh -m5'+dir+'\\ARCHIV.rar'+dir;
ShellExecute(0, 0, 'WinRar',Pchar(s), 0, SW_SHOWNORMAL);


dir это пусть к папке(в конце '\' не стоит)

начинает архивировать и по всей видимости я морожу с путями... хелп
вот какую ошибку бьет WinRar
Код

!   G:\Documents and Settings\HeGrenade\Рабочий стол\НЕ УДАЛЯТЬ\l\v.0.9a\00.02.41\ARCHIV.rarF:\Выгрузка\2009.Jun.10...00-0310,06,2009.rar: Невозможно открыть 00.02.41
!   Не удается найти указанный файл.
!   Невозможно создать 00.02.41\\ARCHIV.rarF:\Выгрузка\2009.Jun.10...00-0310,06,2009.rar
!   Синтаксическая ошибка в имени файла, имени папки или метке тома.



--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Данкинг
Дата 10.6.2009, 00:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Вроде параметры командной строки должны отдельно указываться, т.е.:
Код

ShellExecute(Application.Handle, 'open', pchar('winrar'), pchar('a c:\*.* и т.п.'), nil, SW_NORMAL);

Да - и в примере перед F: пробел, думаю, нужен.

Это сообщение отредактировал(а) Данкинг - 10.6.2009, 00:20


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Palladin
Дата 10.6.2009, 00:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
сделал так, заработало, всем спс
Код

ShellExecute(0, 0, 'WinRar',Pchar('a '+dir+'\archiv.rar'+' '+dir+'\'), 0, SW_SHOWNORMAL);



--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Keeper89
Дата 10.6.2009, 00:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 20
Всего: 58
Код

ShellExecute(Handle, 'open', PChar('winrar'),
                PChar('a "F:\arch\arch.rar" "F:\arch\*.txt"'),
                nil, SW_NORMAL);


Добавлено @ 00:48
Не успел smile

Это сообщение отредактировал(а) Keeper89 - 10.6.2009, 00:48


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
AntonN
Дата 10.6.2009, 00:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 18
Palladin, возьми себе за правило все пути окаймлять кавычками, потому что пробелы в пути могут навредить smile
именно о той ошибке говорил винрар


--------------------
user posted image
PM MAIL WWW   Вверх
Данкинг
Дата 10.6.2009, 01:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Да, меня путь тоже напугал: точки всякие, пробелы... smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

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

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


 




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


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

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