I used commondialog. Why It open the files not the folder? I just want to show the folder not the files inside the folder

Code:
Private Sub Command1_Click()
Dim shape As String
  shape = "ESRI Shapefiles (*.shp) |*.shp"

  CommonDialog1.CancelError = True
  On Error GoTo FileOpenCancel
  CommonDialog1.Filter = shape
  CommonDialog1.DialogTitle = "Lokasi Pangkalan data"
  CommonDialog1.ShowOpen
  outputfile = CommonDialog1.fileName
FileOpenCancel:
  Exit Sub
 End Sub