'通過過System.IO.DirectoryInfo對象可以查閱目錄信息,下面是遍歷一個文件夾下所有層次的子文件夾,如果只檢查下一層目錄就更簡單了。
站在用戶的角度思考問題,與客戶深入溝通,找到開州網(wǎng)站設計與開州網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗,讓設計與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個性化、用戶體驗好的作品,建站類型包括:成都網(wǎng)站設計、網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、申請域名、虛擬空間、企業(yè)郵箱。業(yè)務覆蓋開州地區(qū)。
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?folder?=?New?System.IO.DirectoryInfo("D:\Documents")
Dim?items?=?getemptyfolder(folder)
For?Each?item?In?items
Console.WriteLine(item.FullName)
Next
End?Sub
Function?getemptyfolder(ByVal?folder?As?System.IO.DirectoryInfo)?As?System.IO.DirectoryInfo()
Dim?items?As?New?List(Of?System.IO.DirectoryInfo)
If?folder.EnumerateFiles().Count?=?0?Then
items.Add(folder)
End?If
Dim?subfolders?=?folder.EnumerateDirectories()
For?Each?subfolder?In?subfolders
items.AddRange(getemptyfolder(subfolder))?'查詢樹形目錄結(jié)構(gòu)類型數(shù)據(jù)用遞歸法實現(xiàn)
Next
Return?items.ToArray()
End?Function
'還是學c#語言吧,我發(fā)覺同樣一個數(shù)組,c#功能多的多,vb.net沒幾條方法可用。
建一個ImageList控件,右擊,屬性,在“圖像”里插入圖片(你的1.gif),看好他們的索引(Index,默認是1)。然后,代碼如下。 ============ Private Sub Command1_Click() TreeView1.ImageList = ImageList1 '關(guān)聯(lián)Treeview1與Imagelist1 TreeView1.LineStyle = tvwRootLines Dim nodX As Node TreeView1.Nodes.Add , , "a1", "teachername" Set nodX = TreeView1.Nodes.Add("a1", tvwChild, , "教師姓名", 1) '這個1的意思是剛才設置的圖片在ImageList里的索引 End Sub
步驟如下:
窗體上添加2個列表框,一個按鈕:
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.net:
Dim path = System.IO.Directory.GetFiles("D:\Log\abc", "*.txt", SearchOption.AllDirectories):搜索該路徑下的所有txt類型的目錄及子目錄
path.AddRange(path)
Dim _RecordInfo As String
Dim _Reader As StreamReader
_Reader = New StreamReader(file, System.Text.Encoding.Default):'以Default編碼的形式讀取file文件(文件寫入的編碼要與讀取的編碼一致)
本文標題:vb.net子文件夾 vb目錄文件夾
文章路徑:http://jinyejixie.com/article18/dosdigp.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站制作、搜索引擎優(yōu)化、面包屑導航、網(wǎng)站維護、微信公眾號、網(wǎng)頁設計公司
聲明:本網(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)