Страницы: 1
RSS
Как открыть папку с файлом зная только точный адрес к файлу
 
Добрый день.
Есть такая задача.
Имеется точный путь к файлу любого формата, например такой
C:\Documents and Settings\Администратор\Мои документы\Downloads\Ария - Кто Ты.mp3
Вопрос.
Как открыть папку с этим файлом? Именно папку. Файл открывать не надо.
При помощи макроса естественно.

Поиски в интернете ничего не дали
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
Вопрос решился следующим образом
Код
1
Shell "explorer.exe /select,d:\test\test.xls",vbNormalFocus
или если с переменной то так

Код
1
Shell "explorer.exe /select," & ResultatF.Text, vbNormalFocus

Тему можно закрыть
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
Правильнее будет так (на случай, если путь к файлу содержит пробелы)

Код
1
2
3
4
5
Sub ShowFile(ByVal FilePath$)
    ' открывает файл FilePath$ в Проводнике Windows
    On Error Resume Next
    CreateObject("wscript.shell").Run "explorer.exe /e,/select,""" & FilePath$ & """"
End Sub
Страницы: 1
Читают тему
Наверх
Loading...