Как открыть папку в которой лежит файл?

[AndrNet]

Как открыть папку в которой лежит файл? В базе есть пути полные пути к файлам с их именами, например

Код: Выделить всё

C:\Documents and Settings\Andrey\my\OBD II-.xlsx.

к примеру я получил эту строку в переменную iPath и получить из нее только путь.
Как открыть саму папку в которой расположен файл не запуская приложения.
Вариант

Код: Выделить всё

CreateObject("Shell.Application").Open iPath

не проходит, запускается приложение.

[Jack Ferre]

Найти и выбрать файл

[Qwertiy]

Ну почти
Ответил там.

[ALX_2002]

А такой вариант не подошёл ?

Код: Выделить всё

CreateObject("Shell.Application").Explore "C:\Temp"

[Хакер]

А такой вариант не подошёл ?

Код: Выделить всё

CreateObject("Shell.Application").Explore "C:\Temp"

Вариант

Код: Выделить всё
CreateObject("Shell.Application").Open iPath

не проходит, запускается приложение.

[ALX_2002]

Хакер, так я про Explore, а не про Open

А для выделения конкретного файла можно вот это использовать:

Код: Выделить всё

Option Explicit
Private Sub Form_Load()
   
    'https://msdn.microsoft.com/en-us/library/windows/desktop/bb774047(v=vs.85).aspx
    '(0) Deselect the item.
    '(1) Select the item.
    '(3) Put the item in edit mode.
    '(4) Deselect all but the specified item.
    '(8) Ensure the item is displayed in the view.
    '(16) Give the item the focus.

    Dim oExplorer As Object
    Dim oFolderItem As Object
    Set oExplorer = GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
    With oExplorer
        .Visible = True
        .Navigate "C:\Windows"
        Do While .Busy
            DoEvents
        Loop
        Set oFolderItem = .Document.Folder.ParseName("notepad.exe")
        .Document.SelectItem oFolderItem, 16 + 1 + 8
    End With
End Sub