vb点虐 文件名 vbnet filestream

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

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

创新互联-专业网站定制、快速模板网站建设、高性价比五家渠网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式五家渠网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖五家渠地区。费用合理售后完善，十年实体公司更值得信赖。

VB.NET获取目录文件夹名称

先用System.IO.Directory.GetDirectories函数获取子目录的名称（包液孝括其路径），再用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

...

可能有更简洁的方法，你可以到MSDN看看

System.IO.Directory.GetDirectories：

System.IO.Path.GetFileName：

通用 I/O 任务：

vb点虐 从文件路径中获取文件名

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

'获取路径名各部分: 如： 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 0 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 0 Then

GetFileExtName ".txt"

Else

GetFileExtName Mid(FilePathFileName, J, i)

End If

End Function

vb点虐 中如何根据文件名得到文件全名

VB的我会弄NET的不知道和局李察VB是不是一样、VB中需要用到API函数提取exe图标加载到imagelist和通用控件然后截取文件名、然扰吵后用listview加载桐茄imagelist的图标和通用控件的文件名