vb.net從文件路徑中獲取文件名

獲取方法，參考實例如下：

公司主營業(yè)務(wù)：網(wǎng)站制作、成都做網(wǎng)站、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出東港免費做網(wǎng)站回饋大家。

'獲取路徑名各部分:

如：

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

'獲取文件名但不包括擴展名

aaa

Public

Function

GetFileNameNoExt(FilePathFileName

As

String)

As

String

'獲取文件名但不包括擴展名

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

'＝＝＝＝＝

'獲取擴展名

.txt

Public

Function

GetFileExtName(FilePathFileName

As

String)

As

String

'獲取擴展名

.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》獲取文件夾下的所有MP3文件名的代碼。

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

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

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

Next

End?Sub

vb.net 獲取目錄下文件夾名不包括隱藏文件夾

Vb.net獲取某個目錄下文件夾名稱（不包含隱藏文件夾）實現(xiàn)代碼如下：

Dim?dir?As?New?DirectoryInfo("D:\")

For?Each?d?As?DirectoryInfo?In?dir.GetDirectories

ComboBox1.Items.Add(d.Name)

Next

dim?finfo?as?new?fileinfo(d.name)

if?(finfo.attributes?and?FileAttributes.Hidden)FileAttributes.Hidden?then

ComboBox1.Items.Add(d.Name)

end?if

在VB中如何獲取指定文件夾下的所有文件名？

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

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

以下是組合使用DriveListBox 、控件DirListBox 控件和FileListBox 控件來獲取硬盤下任何一個文件夾內(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??"個文件。"

End?Sub