CodeItBetter Programming Another VB Programming Blog

'System & API - How to Launch Windows Explorer with Specific Directory

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 OpenExplorer(Optional InitialDirectory As String)
    ShellExecute 0, "Explore", InitialDirectory, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
 
Private Sub Form_Load()
    Call OpenExplorer("C:\Program Files\")
End Sub