vb.net子文件夾 vb目錄文件夾

vb.net，一文件夾下存在若干子文件夾，如何判斷哪些子文件夾為空（子文

'通過過System.IO.DirectoryInfo對象可以查閱目錄信息，下面是遍歷一個文件夾下所有層次的子文件夾，如果只檢查下一層目錄就更簡單了。

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

'還是學(xué)c#語言吧，我發(fā)覺同樣一個數(shù)組，c#功能多的多，vb.net沒幾條方法可用。

在VB.NET中，使用Treeview列出指定目錄下的子文件夾和子文件夾中的文件

建一個ImageList控件，右擊，屬性，在“圖像”里插入圖片（你的1.gif），看好他們的索引（Index，默認(rèn)是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的意思是剛才設(shè)置的圖片在ImageList里的索引 End Sub

vb.net 如何用通配符查找文件

步驟如下：

窗體上添加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遍歷某個文件夾，并讀取子目錄中的指定文件

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文件(文件寫入的編碼要與讀取的編碼一致)

本文標(biāo)題：vb.net子文件夾 vb目錄文件夾
文章路徑：http://muchs.cn/article18/dosdigp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站制作、搜索引擎優(yōu)化、面包屑導(dǎo)航、網(wǎng)站維護(hù)、微信公眾號、網(wǎng)頁設(shè)計公司

廣告

聲明：本網(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)