Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как программно открыть заданную папку и перейти на заданный файл / 5 сообщений из 5, страница 1 из 1
28.12.2011, 09:51
    #37596558
kealog
kealog
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно открыть заданную папку и перейти на заданный файл
Исходные данные:
а) Есть полное наименование папки, например D:\Test
б) Есть наименование файла, например: test.xls, который лежит в этой папке

Задача:
а) Открыть указанную папку и сделать её активной, или, если она открыта - только сделать активной.
б) Переместиться на указанный файл (подсветить его), но не запускать

Я копал в направлении запуска скриптов Shell, но нашёл там только открытие файла, считывание его свойств и т.п.
М.б. есть что-то связанное с InvokeVerb папки или файла, но никаких справочников по аргументам функции не нашёл.
Например здесь http://www.script-coding.com/WSH/Shell.html#3.8.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2011, 11:01
    #37596653
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно открыть заданную папку и перейти на заданный файл
открыть папку можно так:
Код: vbnet
1.
Call ShellExecute(0, "open", "c:\", "", "", SW_SHOWNORMAL)


с файлом - не знаю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2011, 11:09
    #37596666
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно открыть заданную папку и перейти на заданный файл
kealog,

Через Shell -
Код: vbnet
1.
Shell "explorer.exe /select,d:\test\test.xls",vbNormalFocus

Через API - SHOpenFolderAndSelectItems
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2011, 11:21
    #37596687
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно открыть заданную папку и перейти на заданный файл
М.б. есть что-то связанное с InvokeVerb папки или файла, но никаких справочников по аргументам функции не нашёл.
Нужно подключить Microsoft Internet Controls и Microsoft Shell Controls And Automation.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Dim sw As New SHDocVw.ShellWindows
For Each w In sw
    If TypeName(w.Document) = "IShellFolderViewDual3" Then  'это проводник, а не IE
        For Each Item In w.Document.Folder.Items
            'перебор элементов папки, у них есть InvokeVerb 
        Next
    End If
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2011, 11:45
    #37596734
kealog
kealog
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как программно открыть заданную папку и перейти на заданный файл
big-duke,

СПАСИБО!

Очень подошло: Shell "explorer.exe /select,d:\test\test.xls",vbNormalFocus

Через API ... не пробовал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как программно открыть заданную папку и перейти на заданный файл / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 420ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2158188]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 70ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 261ms
total:  420ms
x
x
Закрыть


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