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

Формулировка задачи:

Как открыть папку в которой лежит файл? В базе есть пути полные пути к файлам с их именами, например C:\Documents and Settings\Andrey\my\OBD II-.xlsx. Как открыть саму папку не запуская приложения. Вариант CreateObject("Shell.Application").Open iPath не проходи, запускается приложение.

Или как получить только путь к файлу?

Решение задачи: «Как открыть папку в которой лежит файл»

textual
                            Листинг программы 
                        

                            'Opening Folders using VBA Excel
 
 
'In this Example I am Opening a Folder 
Sub sbOpeningAFolder()
 
Dim FSO
Dim sFolder As String,S as string
s = "C:\Documents and Settings\Andrey\my\123456.xlsx"
 
sFolder =(Mid(s, 1, InStrRev(s, "\")))
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
If Not FSO.FolderExists(sFolder) Then
MsgBox "Specified Folder Not Found", vbInformation, "Folder Not Found!"
ElseIf FSO.FolderExists(sFolder) Then
Call Shell("explorer.exe " &sFolder, vbNormalFocus)
End If
 
End Sub
                        