【分享】VB6 選擇資料夾or檔案

Private Sub Command1_Click() '選資料夾
    Dim Shl As Object
    Set Shl = CreateObject("Shell.Application") '創物件
    Set Fd = Shl.BrowseForFolder(0, "選取資料夾", 0, "\") '標題 and 預設路徑\
    If Not Fd Is Nothing Then '非錯誤執行
        Text1.Text = Fd.Items.Item.Path ' 顯示所選取檔案的名稱
    End If
    Set Shl = Nothing '釋放
    Set Fd = Nothing '釋放
End Sub

Private Sub Command2_Click() '選檔案 需物件CommonDialog1
  On Error Resume Next ' 略過錯誤
  CommonDialog1.Flags = cdlOFNHideReadOnly '單選 cdlOFNAllowMultiselect '改為復選
  ' 限制檔案類型
  CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
  CommonDialog1.FilterIndex = 2   ' 預設第2 "|" 項目
  CommonDialog1.ShowOpen ' 顯示「開啟舊檔」對話方塊
  Text1.Text = CommonDialog1.FileName ' 顯示所選取檔案的名稱
End Sub