用VB（或者VB.net）怎樣打開“瀏覽文件夾窗口”？（如圖）

Private Sub Command1_Click()

創(chuàng)新互聯(lián)建站是一家專業(yè)提供騰沖企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站制作、成都做網(wǎng)站、H5建站、小程序制作等業(yè)務(wù)。10年已為騰沖眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)絡(luò)公司優(yōu)惠進(jìn)行中。

Dim sf As Object

Set sf = CreateObject("Shell.Application").BrowseForFolder(0, "選擇文件夾", 0, "")

If Not sf Is Nothing Then

MsgBox "選擇的文件夾是" vbCrLf sf.self.Path

End If

Set sf = Nothing

End Sub

VB 顯示打開文件對(duì)話框

1、啟動(dòng)vb6。

2、在菜單-工程-部件-添加Microsoft Common Dialog Control 6.0 (SP6)

3、添加CommonDialog1、Command1到窗體。

4、程序代碼：

Private Sub Command1_Click()

' 設(shè)置“CancelError”為 True

CommonDialog1.CancelError = True

On Error GoTo ErrHandler

' 設(shè)置標(biāo)志

CommonDialog1.Flags = cdlOFNHideReadOnly

' 設(shè)置過(guò)濾器

CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" _

"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"

' 指定缺省的過(guò)濾器

CommonDialog1.FilterIndex = 2

' 顯示“打開”對(duì)話框

CommonDialog1.ShowOpen

' 顯示選定文件的名字

MsgBox CommonDialog1.FileName

Exit Sub

ErrHandler:

' 用戶按了“取消”按鈕

Exit Sub

End Sub

VB.net怎么彈出文件夾路徑選擇框

選擇文件夾??在工具箱?-?對(duì)話框?里選擇?FolderBrowserDialog?添加?到設(shè)計(jì)器中

然后?代碼寫在??按鈕事件里

FolderBrowserDialog1.ShowDialog()

textbox1.text?=FolderBrowserDialog1.SelectedPath

選擇文件?在工具箱?-?對(duì)話框?里選擇?OpenFileDialog

把?OpenFileDialog1.ShowDialog()

TextBox1.Text?=?OpenFileDialog1.FileName

寫到按鈕事件下

如圖

點(diǎn)擊按鈕會(huì)彈出?通用對(duì)話框??選擇好路徑后?確定?，編輯框里就會(huì)顯示選擇的路徑

VB.NET中，文件對(duì)話框（OpenFileDialog）顯示某種設(shè)定的文件類型需要修改什么屬性？

Filter 屬性設(shè)置當(dāng)前文件名篩選字符串，該字符串確定出現(xiàn)在對(duì)話框的“文件類型”框中的選項(xiàng)。

openFileDialog1.InitialDirectory = "c:\\" ;

openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;

openFileDialog1.FilterIndex = 1 ; // 獲取或設(shè)置文件對(duì)話框中當(dāng)前選定篩選器的索引；

openFileDialog1.RestoreDirectory = true ;

對(duì)于每個(gè)篩選選項(xiàng)，篩選器字符串都包含篩選器說(shuō)明，后接一垂直線條 (|) 和篩選器模式。不同篩選選項(xiàng)的字符串由垂直線條隔開。