vb.net多文件名称 vb窗体文件名

VB.Net怎样得到某个文件夹里的所有文件名

如果想要获得当前文件中的文件名只需要String [] fileName = file.list();就可以了。如果要包括文件中的文件名就可以用递归的方式。下面是两个具体的实现。 其中public static String [] getFileName(String path)是只得到当前文件中的文件名。

创新互联是一家专业提供老城企业网站建设,专注与成都网站制作、成都网站设计、成都h5网站建设、小程序制作等业务。10年已为老城众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。

vb.net从文件路径中获取文件名

获取方法，参考实例如下：

'获取路径名各部分:

如：

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 openfiledialog1.file添加多个扩展名?

openfiledialog1.Filter = "多媒体文件(*.ogg;*.MP3;*.MP4;*.wma)|*.ogg;*.MP3;*.MP4;*.wma|所有文件(*.*)|*.*"