Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Распаковать архивный файл из программы / 5 сообщений из 5, страница 1 из 1
18.03.2009, 02:16
    #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, 08:35
    #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, 09:42
    #35875736
AndrF
AndrF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Распаковать архивный файл из программы
vera_tмне выдается сообщение "Архивы не дайдены". Не подскажет ли кто-нибуть почему?

Сообщение, конечно, коряво написано, но понять-то можно.
Задумайся откуда архиватор знает где твои файлы и куда распаковывать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.03.2009, 08:59
    #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, 09:03
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Распаковать архивный файл из программы / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 358ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2161243]:
 0ms
get settings:
 9ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 60ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 196ms
total:  358ms
x
x
Закрыть


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