VB中如何用filelistbox控件獲取文件夾中文件名稱并按順序排列

VB可以使用FileListBox 控件來(lái)獲取指定文件夾內(nèi)的所有文件名。

創(chuàng)新互聯(lián)建站專業(yè)為企業(yè)提供平橋網(wǎng)站建設(shè)、平橋做網(wǎng)站、平橋網(wǎng)站設(shè)計(jì)、平橋網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)與制作、平橋企業(yè)網(wǎng)站模板建站服務(wù)，十余年平橋做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。

FileListBox 控件，在運(yùn)行時(shí)，在 Path 屬性指定的目錄中，F(xiàn)ileListBox 控件將文件定位并列舉出來(lái)。該控件用來(lái)顯示所選擇文件類型的文件列表。例如，可以在應(yīng)用程序中創(chuàng)建對(duì)話框，通過(guò)它選擇一個(gè)文件或者一組文件。

以下是組合使用DriveListBox 、控件DirListBox 控件和FileListBox 控件來(lái)獲取硬盤下任何一個(gè)文件夾內(nèi)的文件名。

Private?Sub?Dir1_Change()

File1.Path?=?Dir1.Path

End?Sub

Private?Sub?Drive1_Change()

Dir1.Path?=?Drive1.Drive

End?Sub

Private?Sub?File1_Click()

Dim?i?As?Long

Debug.Print?"目錄夾內(nèi)存在"??File1.ListCount??"個(gè)文件。"

End?Sub

vb.net讀取txt文件，按照要求排序其中數(shù)據(jù)后顯示在listbox控件中。

說(shuō)一個(gè)可行的方案。你可以用3個(gè)ListBox，當(dāng)然其中兩個(gè)個(gè)可以設(shè)為不可見(jiàn)。先讀兩行加入到ListBox1中，接著讀兩行寫入ListBox2中，如此循環(huán)到文件結(jié)束。按照你給的例子，現(xiàn)在Listbox

1中的items是A,B,E,F；而ListBox2中的Items是C,D,G,H。接下來(lái)的你應(yīng)該就明白了吧，把ListBox2中的Items和對(duì)應(yīng)的ListBox1中Item加到ListBox3中。下面簡(jiǎn)單寫下代碼，主要是處理問(wèn)題的思路，代碼很簡(jiǎn)單。

Private Sub DoList(ByVal filePath As String)

Dim str As String

Dim num

Dim listCount

Dim sr As StreamReader

sr = New System.IO.StreamReader(filePath, System.Text.Encoding.Default)

str = sr.ReadLine()

Do While (sr.Peek = 0)

For num=0 To 2

str = sr.ReadLine()

ListBox1.items.Add(str)

Next

num=0

For num=0 To 2

str = sr.ReadLine()

ListBox2.items.Add(str)

Next

Loop

sr.Close()

For listCount=o To ListBox2.Items.Count-1

ListBox3..Items.Add(ListBox1.Items(listCount).ToString+

用vb.net怎樣實(shí)現(xiàn)在遍歷某一文件夾下的所有文件

'把下面的目錄改成你要遍歷的目錄

Dim MyDir = "C:\Windows"

Dim MyInfo = MyDir + "目錄下的所有文件包括："

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

MyInfo += Environment.NewLine + MyFile

Next

Me.RichTextBox1.Text =MyInfo