CodeItBetter Programming Another VB Programming Blog

'System & API - How to Launch given folder (not explorer; just open)

Option Explicit
 
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 Const SW_SHOWNORMAL = 1
 
Public Sub OpenDirectory(Directory As String)
    ShellExecute 0, "Open", Directory, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
 
'How can I call this routine:
Private Sub Form_Load()
    Call OpenDirectory("C:\")
End Sub