Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Архивация...

Тема: Архивация файлов через arj

15.06.2007 21:02:17

Юрий10

2 сообщения

Тема: Архивация файлов через arj

Как из Access архивировать и разархивировать файлы с помощью arj.exe. Пробовал использовать функцию Shell. Пример : Shell(‘c:\arh\arj e proba.arj’,3)

P.S. Общие вопросы по модулям
Автор: Юрий от 08.04.2002 8:41:57 Источник ...

15.06.2007 21:02:17

All

4316 сообщения

RE: Архивация файлов через arj

Проверьте команду в операционной системе. Для этого нажмите кнопку "Пуск" - "Выполнить". Если команда работает, т.е. и VBA она будет выполняться.

P.S. Общие вопросы по модулям
Автор: Виктор Конюков от 0:00:00 Источник ...

15.06.2007 21:02:17

Николай3

48 сообщения

RE: Архивация файлов через arj

ARJ какой-то "с приветом"
Я его нормально использовал "в связке" с ожиданием окончания работы архиватора:

Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessId As Long
dwThreadId As Long
End Type
Private Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Long
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type
Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As Any, lpThreadAttributes As Any, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Function ARJ() As Bolean
Dim si As STARTUPINFO
Dim pi As PROCESS_INFORMATION
Dim ComLine As String, DefaultDir As String

'ComLine = "E:\Projects\001\002\arj.exe a 001.arj"
ComLine = "E:\Projects\001\002\arj.exe e -y 001.arj"
DefaultDir = "E:\Projects\001\002\"
si.wShowWindow = 1
si.dwFlags = &H1 'STARTF_USESHOWWINDOW
If CreateProcess(vbNullString, ComLine, ByVal 0&, ByVal 0&, False, 0, ByVal 0&, DefaultDir, si, pi) Then
WaitForSingleObject pi.hProcess, &HFFFF 'INFINITE
CloseHandle pi.hProcess
ARJ=True
Exit Function
End If
ARJ=False
End Function

P.S. Общие вопросы по модулям
Автор: Николай от 09.04.2002 12:32:44 Источник ...

15.06.2007 21:02:17

женя

1 сообщения

RE: Архивация файлов через arj

как архивировать через arj такие типі файлов: exe ,com,txt,doc,mbr,jrg,war,mp3?

P.S. Общие вопросы по модулям
Автор: женя от 07.04.2005 11:34:52 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Архивация...

Поиск

Список форумов

Начало | Forums