vb.net顯示文件名的簡單介紹

VB怎樣顯示文件夾內(nèi)所有的文件名稱

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

成都創(chuàng)新互聯(lián)公司是網(wǎng)站建設(shè)專家,致力于互聯(lián)網(wǎng)品牌建設(shè)與網(wǎng)絡(luò)營銷，專業(yè)領(lǐng)域包括成都網(wǎng)站建設(shè)、網(wǎng)站制作、電商網(wǎng)站制作開發(fā)、小程序制作、微信營銷、系統(tǒng)平臺(tái)開發(fā)，與其他網(wǎng)站設(shè)計(jì)及系統(tǒng)開發(fā)公司不同，我們的整合解決方案結(jié)合了恒基網(wǎng)絡(luò)品牌建設(shè)經(jīng)驗(yàn)和互聯(lián)網(wǎng)整合營銷的理念，并將策略和執(zhí)行緊密結(jié)合，且不斷評(píng)估并優(yōu)化我們的方案，為客戶提供全方位的互聯(lián)網(wǎng)品牌整合方案！

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

以下是組合使用DriveListBox 、控件DirListBox 控件和FileListBox 控件來獲取硬盤下任何一個(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從文件路徑中獲取文件名

獲取方法，參考實(shí)例如下：

'獲取路徑名各部分:

如：

c:\dir1001\aaa.txt

'獲取路徑路徑

c:\dir1001\

Public

Function

GetFileName(FilePathFileName

As

String)

As

String

'獲取文件名

aaa.txt

On

Error

Resume

Next

Dim

i

As

Integer,

J

As

Integer

i

Len(FilePathFileName)

J

InStrRev(FilePathFileName,

"\")

GetFileName

Mid(FilePathFileName,

J

+

1,

i)

End

Function

''獲取路徑路徑

c:\dir1001\

Public

Function

GetFilePath(FilePathFileName

As

String)

As

String

'獲取路徑路徑

c:\dir1001\

On

Error

Resume

Next

Dim

J

As

Integer

J

InStrRev(FilePathFileName,

"\")

GetFilePath

Mid(FilePathFileName,

1,

J)

End

Function

'獲取文件名但不包括擴(kuò)展名

aaa

Public

Function

GetFileNameNoExt(FilePathFileName

As

String)

As

String

'獲取文件名但不包括擴(kuò)展名

aaa

On

Error

Resume

Next

Dim

i

As

Integer,

J

As

Integer,

k

As

Integer

i

Len(FilePathFileName)

J

InStrRev(FilePathFileName,

"\")

k

InStrRev(FilePathFileName,

".")

If

k

Then

GetFileNameNoExt

Mid(FilePathFileName,

J

+

1,

i

-

J)

Else

GetFileNameNoExt

Mid(FilePathFileName,

J

+

1,

k

-

J

-

1)

End

If

End

Function

'＝＝＝＝＝

'獲取擴(kuò)展名

.txt

Public

Function

GetFileExtName(FilePathFileName

As

String)

As

String

'獲取擴(kuò)展名

.txt

On

Error

Resume

Next

Dim

i

As

Integer,

J

As

Integer

i

Len(FilePathFileName)

J

InStrRev(FilePathFileName,

".")

If

J

Then

GetFileExtName

".txt"

Else

GetFileExtName

Mid(FilePathFileName,

J,

i)

End

If

End

Function

VB.NET關(guān)于listview中顯示所選文件夾內(nèi)文件名以及圖標(biāo)的問題

首先你要在工程里面添加至少一個(gè)imagelist1控件，把里面放上合適的圖標(biāo)。然后在listview的largeimagelist（對應(yīng)大圖表顯示模式）或者smalllimagelist（對應(yīng)其他顯示模式）屬性里面指定imagelist1控件。

最后在你的代碼添加上文件類型判斷代碼，根據(jù)不同的文件選擇不同的圖標(biāo)，最后添加到集合當(dāng)中去。

網(wǎng)頁名稱：vb.net顯示文件名的簡單介紹
文章分享：http://muchs.cn/article18/doeoedp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供移動(dòng)網(wǎng)站建設(shè)、建站公司、企業(yè)網(wǎng)站制作、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站改版、網(wǎng)站導(dǎo)航

廣告

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