vb.net文件名稱 vb是什么文件

求用《VB.NET》獲取文件夾下的所有MP3文件名的代碼。

Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click

成都創(chuàng)新互聯(lián)主打移動(dòng)網(wǎng)站、成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)、網(wǎng)站改版、網(wǎng)絡(luò)推廣、網(wǎng)站維護(hù)、國(guó)際域名空間、等互聯(lián)網(wǎng)信息服務(wù)，為各行業(yè)提供服務(wù)。在技術(shù)實(shí)力的保障下，我們?yōu)榭蛻舫兄Z穩(wěn)定，放心的服務(wù)，根據(jù)網(wǎng)站的內(nèi)容與功能再?zèng)Q定采用什么樣的設(shè)計(jì)。最后，要實(shí)現(xiàn)符合網(wǎng)站需求的內(nèi)容、功能與設(shè)計(jì)，我們還會(huì)規(guī)劃穩(wěn)定安全的技術(shù)方案做保障。

For?Each?FileName?As?String?In?IO.Directory.GetFiles("E:\音樂(lè)",?"*.mp3")

TextBox1.Text?=?vbNewLine??IO.Path.GetFileName(FileName)

Next

End?Sub

VB.NET獲取目錄文件夾名稱

先用System.IO.Directory.GetDirectories函數(shù)獲取子目錄的名稱（包括其路徑），再用System.IO.Path.GetFileName獲取子目錄的名稱。下面是代碼：

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

For Each s In System.IO.Directory.GetDirectories("C:\Windows")

Console.WriteLine(System.IO.Path.GetFileName(s))

Next

End Sub

下面是部分輸出：

Application Data

AppPatch

assembly

BOCNET

Boot

Branding

ConfigSetRoot

Cursors

Debug

DigitalLocker

Downloaded Installations

Downloaded Program Files

ehome

en-US

Fonts

Globalization

Help

...

可能有更簡(jiǎn)潔的方法，你可以到MSDN看看

System.IO.Directory.GetDirectories：

System.IO.Path.GetFileName：

通用 I/O 任務(wù)：

vb.net中如何根據(jù)文件名得到文件全名

VB的我會(huì)弄NET的不知道和VB是不是一樣、VB中需要用到API函數(shù)提取exe圖標(biāo)加載到imagelist和通用控件然后截取文件名、然后用listview加載imagelist的圖標(biāo)和通用控件的文件名

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文件名稱 vb是什么文件
標(biāo)題URL：http://muchs.cn/article2/hhedic.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站改版、網(wǎng)站制作、小程序開發(fā)、網(wǎng)站營(yíng)銷、營(yíng)銷型網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)

廣告

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

小程序開發(fā)