vb.net短文件名 VB文件名

如何使用vb.net获取一个文件夹里最后一个数据文件的名称？

function Newfile as fileinfo

Dim dic As New System.IO.DirectoryInfo("C:\Users\Q\Desktop\数据")

Dim files = dic.GetFiles.OrderByDescending(Function(s) s.CreationTime)

if files.

return files.first

end function

注意引入 system.linq

相关问答

Q1: vb.net查找文件问题

思路：

1，使用ListBox1控件来存放搜索到的文件名，然后ListBox1.SelectedItem就可以返回选中项的文本；

2，利用获得的选中项文本（即文件与路径），使用打开文本文件的方法，读取内容显示在文本框里。

Q2: 请问如何使用VB.NET创建临时文件

临时文件通常用于临时性的数据存储和操作，比如在存储用户数据、参数选择、会话信息、应用程序缓存等类型的信息。

为了在VB.NET中获取临时文件的文件名，我建议使用Path类的GetTempFileName方法，尽管创建临时文件的方法有很多种，但是最佳的方案是使用System.IO.Path，因为它可以在当前用户的临时目录中返回唯一的文件名，您可以使用该文件名命名的文件来存储临时信息。

需要注意的是，如果多次调用该方法，那么每次都会生成不同的文件名，即使您没有使用这些文件名。这样做是为了防止不同的应用软件之间的冲突。

在列表A的示例代码中，我定义了字符串变量sTempFileName，并将System.IO.Path.GetTempFileName方法的返回值赋值给该变量，这样我就拥有了一个可以使用的临时文件名，然后我创建一个FileStream对象——fsTemp，同时向系统发出请求来创建文件，这个临时文件使用的正是sTempFileName中所存储的文件名。文件创建完成之后，我就开始向文件中添加数据（例子中没有展示这部分代码），然后将这个文件关闭。

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

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

Q4: 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 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