ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Распаковать архивный файл из программы
5 сообщений из 5, страница 1 из 1
Распаковать архивный файл из программы
    #35875521
vera_t
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vera_t
Участник
Распаковываю архивные файлы посредством команды:
Shell "C:\Program Files\WinRAR\WinRAR.exe e" & fl1 & " " & fol
fl1="Q:\КОНТЕЙНЕР\FROM\FTP\6950\16032009_1219\6950_2540_BDK_16.03.2009_12.19.rar"
мне выдается сообщение "Архивы не дайдены". Не подскажет ли кто-нибуть почему?
...
Рейтинг: 0 / 0
18.03.2009, 02:16
| Ответить | Цитировать | Написать  
Распаковать архивный файл из программы
    #35875640
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
если сделать
Код: plaintext
Debug.print "C:\Program Files\WinRAR\WinRAR.exe e" & fl1 & " " & fol
и полученную строку выполнить вне программы, то сработает?

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
18.03.2009, 08:35
| Ответить | Цитировать | Написать  
Распаковать архивный файл из программы
    #35875736
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
vera_tмне выдается сообщение "Архивы не дайдены". Не подскажет ли кто-нибуть почему?

Сообщение, конечно, коряво написано, но понять-то можно.
Задумайся откуда архиватор знает где твои файлы и куда распаковывать?
...
Рейтинг: 0 / 0
18.03.2009, 09:42
| Ответить | Цитировать | Написать  
Распаковать архивный файл из программы
    #35878248
Madfish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Madfish
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim hInstance As Long
  Dim hProcess As Long
  Dim lngRetval As Long
  Dim lngExitCode As Long
  Dim strCommand As String
  Dim intMode As Integer

strCommand = "D:\Test\Rar.exe a  D:\TEST\Arxiv\rx.rar D:\TEST\Arxiv\*.txt -ep1 -df"

intMode =  1 
hInstance = Shell(strCommand, intMode)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or SYNCHRONIZE, True, hInstance)
    Do
        lngRetval = GetExitCodeProcess(hProcess, lngExitCode)
        DoEvents
    Loop Until lngExitCode <> STILL_ACTIVE
...
Рейтинг: 0 / 0
19.03.2009, 08:59
| Ответить | Цитировать | Написать  
Распаковать архивный файл из программы
    #35878256
Madfish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Madfish
Участник
Madfish
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim hInstance As Long
  Dim hProcess As Long
  Dim lngRetval As Long
  Dim lngExitCode As Long
  Dim strCommand As String
  Dim intMode As Integer

strCommand = "D:\Test\Rar.exe a  D:\TEST\Arxiv\rx.rar D:\TEST\Arxiv\*.txt -ep1 -df"

intMode =  1 
hInstance = Shell(strCommand, intMode)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or SYNCHRONIZE, True, hInstance)
    Do
        lngRetval = GetExitCodeProcess(hProcess, lngExitCode)
        DoEvents
    Loop Until lngExitCode <> STILL_ACTIVE


ой только strCommand разархивации нужно - но принцип тот же
...
Рейтинг: 0 / 0
19.03.2009, 09:03
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Распаковать архивный файл из программы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35878256&tid=2161243]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 164ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 2ms
others: 231ms
total:  507ms
созд. / загр.: 507ms
x
x
Закрыть


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