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

Private Sub Command1_Click()

站在用戶的角度思考問題，與客戶深入溝通，找到犍為網(wǎng)站設(shè)計與犍為網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗，讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：成都網(wǎng)站制作、網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、國際域名空間、虛擬空間、企業(yè)郵箱。業(yè)務(wù)覆蓋犍為地區(qū)。

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點虐 文件夾操作

vb點虐 使用控件FolderBrowserDialog1,在程序中:

'設(shè)置對話框中在樹拿鎮(zhèn)襲視圖控件上顯示的說明文本

Me.FolderBrowserDialog1.Description

=

"請選擇輸出報表所旅頌在路徑:"

'設(shè)置從其開始瀏覽的根文件夾

Me.FolderBrowserDialog1.SelectedPath

=

"c:\"

If

Me.FolderBrowserDialog1.ShowDialog()

=

DialogResult.OK

Then

'取得全路徑（包含文件名消兄）

reportPath1

=

System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)

'設(shè)定text顯示文件名

txtReport1.Text

=

reportPath1

setReportList()

End

If

在setReportList()中針對你所需要的文件進(jìn)行操作等

用vb點虐 怎么實現(xiàn)文件夾及文件的搜索

方法很多，下面列舉一個：

窗體上添加2個列表框，一個謹(jǐn)桐按鈕：

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MyDir As String = "C:\123"

'搜索輪腔并顯示臘晌衫子文件夾

ListBox1.Items.Clear()

For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)

ListBox1.Items.Add(MySubDir)

Next

'搜索并顯示文件

ListBox2.Items.Clear()

For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)

ListBox2.Items.Add(MyFile)

Next

End Sub

End Class

本文題目：vb點虐 文件夾瀏覽 vbnet filestream
路徑分享：http://jinyejixie.com/article48/ddpehep.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供響應(yīng)式網(wǎng)站、小程序開發(fā)、網(wǎng)站設(shè)計、網(wǎng)站維護(hù)、全網(wǎng)營銷推廣、云服務(wù)器

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)