ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как программно открыть заданную папку и перейти на заданный файл
5 сообщений из 5, страница 1 из 1
Как программно открыть заданную папку и перейти на заданный файл
    #37596558
kealog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kealog
Участник
Исходные данные:
а) Есть полное наименование папки, например D:\Test
б) Есть наименование файла, например: test.xls, который лежит в этой папке

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

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


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

СПАСИБО!

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

Через API ... не пробовал
...
Рейтинг: 0 / 0
28.12.2011, 11:45
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как программно открыть заданную папку и перейти на заданный файл
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=88&tid=2158188]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 27ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 18ms
total:  142ms
созд. / загр.: 142ms
x
x
Закрыть


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