Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как программно открыть файл / 7 сообщений из 7, страница 1 из 1
22.11.2003, 09:31
    #32332067
Barracuda13
Barracuda13
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно открыть файл
Господа подскажите как можно средствами VBA открыть файл. Наример файл типа jpeg в ACDSee.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2003, 09:40
    #32332068
funddd
funddd
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно открыть файл
надо посмотреть, с какими параметрами открывается файл в ACDSee, и потом использовать shell.

где-то так
Код: plaintext
1.
dim a as variant
a = shell( "acdsee.exe c:\file.jpg" ,  1 )


1 = это значит, что "Окно имеет фокус и восстанавливает свои стандартные размер и положение."
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2003, 10:01
    #32332070
Barracuda13
Barracuda13
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно открыть файл
а как открыть файл допустим тот же jpeg программой которая зарегистрирована по умолчанию для этого типа файлов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2003, 10:23
    #32332071
Serge Gavrilov
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно открыть файл
Без API, например, так:
shell(environ("comspec") & " /cc:\file.jpg")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2003, 10:29
    #32332072
Barracuda13
Barracuda13
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно открыть файл
a = shell(environ("comspec") & " /cc:\file.jpg")

но так он открывает консольный дос, а потом сам файл. Можно как то обойтись без доса.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2003, 11:10
    #32332081
Serge Gavrilov
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно открыть файл
Не нравится, давайте по другому
Private Declare Function ShellExecute Lib "Shell32" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

ShellExecute 0&, vbNullString, "file.jpg", vbNullString, "C:\", SW_SHOWNORMAL
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2003, 12:44
    #32332813
Анатолий (Киев )
Анатолий (Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно открыть файл
Код: plaintext
1.
2.
3.
Dim WSHShell As Object
Set WSHShell = CreateObject( "WScript.Shell" )
WSHShell.Run  "Документ.doc" ,  3 , True

Открывает файл в Word на весь экран (2-й аргумент) и ждет завершения работы с редактором (3-й аргумент).
2-й и 3-й аргументы - не обязательные.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как программно открыть файл / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 427ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1678068]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 67ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 252ms
total:  427ms
x
x
Закрыть


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