VB Code:
  1. 'Make a reference to Microsoft Shell Controls and Automation

  2. Dim sh As New Shell32.Shell

  3. Dim str1 As Shell32.Folder2

  4.  
  5. Set str1 = sh.BrowseForFolder(Me.hWnd, "Select a Folder", 0, ssfDRIVES)

  6.  

  7. If Not str1 Is Nothing Then

  8.  MsgBox str1.Self.Path

  9. End If