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 ?
