Я открытия файла, например, с:\a.doc пример ниже работает прекрасно, но я не могу открыть папку (без файла). Как это можно сделать.

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, _
     ByVal lpOperation As String, _
     ByVal lpFile As String, _
     ByVal lpParameters As String, _
     ByVal lpDirectory As String, _
     ByVal nShowCmd As Long) _
As Long

Public Sub Connect(strPath As String)
On Error GoTo Connect_Error

    Dim StartDoc As Long
    Dim SW_SHOWNORMAL As Long
    If Not IsNull(strPath) Then
        StartDoc = ShellExecute(Me.hwnd, "", Me.txtPath, _
            "", "", SW_SHOWNORMAL)
    End If
    Exit Sub

Connect_Error:
   MsgBox "Error: " & Err & " " & Error
   Exit Sub
End Sub