vb.net設置目錄 vb選擇打開文件路徑

vb.net 磁盤文件列表，界面如圖，在.net下如何實現？

預先準備三個圖標文件，用于樹型控件中顯示磁盤符號和文件夾的圖像之用。

靜安網站建設公司創新互聯,靜安網站設計制作，有大型網站制作公司豐富經驗。已為靜安1000+提供企業網站建設服務。企業網站搭建\成都外貿網站建設要多少錢，請找那個售后服務好的靜安做網站的公司定做！

1、窗體上添加控件如下：

組合框控件 ComboBox1，樹型控件 TreeView1，列表框控件 ListBox1，圖像列表控件 ImageList1。

選中TreeView1，設置其ImageList屬性為ImageList1。

2、設置屬性

選中圖像列表控件 ImageList1，在屬性窗口里，選中屬性Images，單擊三個小點按鈕，出現圖像集合編輯器窗口，單擊[添加按鈕]，一一把準備好的圖標文件進行添加，注意先后次序，如果不符合要求可以通過上下移動按鈕重新改變次序。完成后單擊[確定]。

運行圖如下：

完整代碼如下：

Imports?System.IO

Public?Class?Form1

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

'添加系統所有磁盤目錄符號

For?Each?MyDrive?As?String?In?Environment.GetLogicalDrives()

ComboBox1.Items.Add(MyDrive)

Next

'顯示第一個磁盤符號

ComboBox1.Text?=?ComboBox1.Items(0)

End?Sub

'遞歸過程添加目錄樹

Public?Sub?AddDirectory(ByVal?strFatherPath?As?String,?ByVal?strPath?As?String,?ByVal?nodeFather?As?TreeNode)

Dim?i?As?Integer

Dim?Mynode?As?New?TreeNode

'先添加本目錄

Mynode.Text?=?Strings.Replace(strPath,?strFatherPath??"\",?"",?,?1)

'為節點指定未被選中時顯示的圖標

Mynode.ImageIndex?=?1

'為節點指定被選中時顯示的圖標

Mynode.SelectedImageIndex?=?2

nodeFather.Nodes.Add(Mynode)

Application.DoEvents()

Try

Dim?str()?As?String?=?Directory.GetDirectories(strPath)

'遞歸遍歷該目錄的子文件夾

For?i?=?0?To?str.GetUpperBound(0)

AddDirectory(strPath,?str(i),?Mynode)

Next

Catch?ex?As?Exception

Debug.WriteLine(ex.Message)

End?Try

Mynode?=?Nothing

End?Sub

'根據給出的盤符添加目錄樹

Private?Sub?AddRootDirectory(ByVal?DiscSymbol?As?String)

Dim?Nynode?As?New?TreeNode

'先把磁盤盤符添加到樹中

TreeView1.Nodes.Clear()

Nynode.ImageIndex?=?0

Nynode.Text?=?DiscSymbol

Nynode.SelectedImageIndex?=?-1

TreeView1.Nodes.Add(Nynode)

Dim?i?As?Integer

'獲取磁盤根目錄下的文件夾

Dim?str()?As?String?=?Directory.GetDirectories(DiscSymbol??"\")

For?i?=?0?To?str.GetUpperBound(0)

'調用遞歸過程遍歷該文件夾里的所有子文件夾，并添加到樹型控件

AddDirectory(DiscSymbol,?str(i),?Nynode)

Next

Nynode?=?Nothing

End?Sub

Private?Sub?ComboBox1_SelectedIndexChanged(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?ComboBox1.SelectedIndexChanged

'根據磁盤符號的變更，顯示根目錄里的文件

ListBox1.Items.Clear()

For?Each?MyFile?As?String?In?System.IO.Directory.GetFiles(ComboBox1.Text)

ListBox1.Items.Add(MyFile)

Next

'根據磁盤符號的變更，重新顯示目錄樹

Dim?DiscSymbol?As?String

DiscSymbol?=?Microsoft.VisualBasic.Left(ComboBox1.Text,?Len(ComboBox1.Text)?-?1)

Call?AddRootDirectory(DiscSymbol)

End?Sub

'遞歸過程根據子目錄尋找上級目錄名--從而構成完整的目錄路徑

Private?Sub?AllPath(ByVal?ThisNode?As?TreeNode,?ByRef?MyPathName?As?String)

If?ThisNode.Level??1?Then

'該節點層數大于1，其父節點不是磁盤根目錄

MyPathName?=?ThisNode.Parent.Text??"\"??MyPathName

Dim?MyNode?As?TreeNode?=?ThisNode.Parent

Call?AllPath(MyNode,?MyPathName)

Else

'該節點層數等于1，其父節點就是磁盤根目錄

MyPathName?=?ComboBox1.Text??MyPathName

End?If

End?Sub

Private?Sub?TreeView1_AfterSelect(ByVal?sender?As?System.Object,?ByVal?e?As?System.Windows.Forms.TreeViewEventArgs)?Handles?TreeView1.AfterSelect

'為了搜索選中的節點對應目錄的文件，需要組成全路徑

Dim?MyAllPathName?As?String?=?TreeView1.SelectedNode.Text

Dim?MyNode?As?TreeNode?=?TreeView1.SelectedNode

If?TreeView1.SelectedNode.Level?=?0?Then

'如果選中的是根節點

MyAllPathName?=?ComboBox1.Text

Else

'如果選中的是非根節點，調用遞歸過程組成全路徑

Call?AllPath(MyNode,?MyAllPathName)

MyAllPathName?=?MyAllPathName??"\"

End?If

'根據路徑，搜索文件名并顯示

ListBox1.Items.Clear()

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

ListBox1.Items.Add(MyFile)

Next

End?Sub

End?Class

VB.NET 創建文件夾

用Directory.CreateDirectory即可創建文件夾：

'?建立目錄

If?Not?Directory.Exists("C:\負屃\"??TextBox1.Text)?Then?'檢查文件夾是否存在

Directory.CreateDirectory("C:\負屃\"??TextBox1.Text)??'不存在，創建文件建夾

End?If

你的例子是因為少了一個"\"引起的，正確的如下：

Dim?fsotest?As?New?FileSystemObject

If?fsotest.FileExists("C:\負屃\"??TextBox1.Text)?=?False?Then

fsotest.CreateFolder("C:\負屃\"??TextBox1.Text) '這里你少了一個\

End?If

MsgBox("創建成功")

在VB.NET中，項目保存后，系統自動建立了多個文件夾和文件，當前目錄是什么？作用是什么？

1、首先建立一個簡單的示例工程，如下圖所示。

2、然后找到要組入的文件，為了方便我直接放到工程源代碼路徑，如下圖所示。

3、在“解決方案資源管理器”下點擊“顯示所有文件”，就能發現要組入的文件。

4、然后右擊目標文件，選擇“包括在項目中(J)”，如下圖所示。

5、再次右擊目標文件，選擇“屬性”，然后在屬性窗口中，在“生成操作”一項處選擇”嵌入的資源“。這個是后重新編譯文件，OK，待嵌入資源WindowsApplication1.ini成功嵌入，就完成了。

用VB.NET設定當前工作路徑

如果一名開發者希望在代碼中使用相對路徑而非絕對路徑 那么設定當前工作路徑的能力遲早會派上用場 在本教程中 我說明如何用 VB NET 設定當前工作路徑

在代碼中 由于相對路徑可以簡化代碼 它一般成為我們的首選路徑 但是 解釋相對與當前工作目錄有關 因此 將當前工作目錄修改到一個需要的位置允許開發者在代碼中使用相對路徑

為了確定當前工作路徑 我使用 Directory 對象的 GetCurrentDirectory 方法 同時 為修改當前工作路徑 我應用 Directory 對象的 SetCurrentDirectory 方法 此外 您可以利用 Path 對象的 GetFullPath 方法 它允許您把使用當前工作路徑的一個相對路徑轉換成絕對路徑

實例

在表格中增加一個列表框（ listbox ）控件 listbox 并在 列表 A 中添加代碼 運行代碼時 結果 如圖 所示

在此例中 我首先顯示一個當前工作目錄（利用 Directory 類的 GetCurrentDirectory 方法） 然后我用 GetFullPath 方法向它提交一個文件名（在本例中為 text txt ） 這兩個行為的結果被逐條添加到列表框 Listbox 中

lishixinzhi/Article/program/net/201311/12881

vb.net從數據庫讀取信息填充treeview做成層次目錄怎么做

給你一段我曾經寫的代碼，主要是生成TreeView的節點！有什么不懂的地方你就提！

Public Sub InitializeTreeView(ByVal strvXL As TreeView, ByVal vrsRecordTwo As DataSet)

Dim treBaseNodeOne As TreeNode

Dim treBaseNodeTwo As TreeNode

Dim strDWDM As String

m_rsRecordTwo = g_clsSybase.SelectSC_PD_SBCSB1()

'查找供電局信息

g_clsSybase.SelectRS_ZZJG_ZZJGDMB(m_rsRecordOne)

'添加根節點

Do While m_rsRecordOne.Read

strDWDM = m_rsRecordOne.GetString(0) '獲取單位代碼

treBaseNodeOne = New TreeNode

treBaseNodeOne.Text = m_rsRecordOne.GetString(1).Trim() '獲取單位名稱

treBaseNodeOne.Name = m_rsRecordOne.GetString(1)

treBaseNodeOne.Tag = ""

strvXL.Nodes.Add(treBaseNodeOne)

'添加樹結構第二層

Dim drsTwo() As DataRow

drsTwo = m_rsRecordTwo.Tables(0).Select("SSDW='" strDWDM "' and SC__XLBM is null")

For Each dr As DataRow In drsTwo

treBaseNodeTwo = New TreeNode

treBaseNodeTwo.Text = dr.Item("XLMC").ToString.Trim

treBaseNodeTwo.Name = dr.Item("XLMC")

treBaseNodeTwo.Tag = dr.Item("XLBM")

treBaseNodeOne.Nodes.Add(treBaseNodeTwo)

Next

Loop

m_rsRecordOne.Close()

End Sub

網站題目：vb.net設置目錄 vb選擇打開文件路徑
文章位置：http://m.kartarina.com/article4/hgsdoe.html

成都網站建設公司_創新互聯，為您提供外貿網站建設、App設計、定制網站、云服務器、網站導航、網站營銷

廣告

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