I can launch the explorer using the following command:

Public Function StartExplorer(Path As String) As Long

Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()

StartExplorer = ShellExecute(Scr_hDC, "Open", Path, _
"", "C:\", SW_SHOWNORMAL)

End Function

where Path is C:

But how do I get the sidewindow which lists all the folders to appear ?