Question

我有程序在目录中查找文件并将它们列在列表框中，但我正在使用的以下代码添加了找到的文件的完整路径。

是否有一些我缺少的东西让它只添加文件名而不是完整路径？

If My.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.CurrentDirectory & "\" & Details.IDL.Text) Then
    For Each FoundFile As String In My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.CurrentDirectory & "\" & Details.IDL.Text)
        ListBox.Items.Add(FoundFile)
    Next
Else
    My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.CurrentDirectory & "\" & Details.IDL.Text)
End If

所以要修复它我只需要放ListBox.Items.Add(IO.Path.GetFileName(FoundFile))而不是ListBox.Items.Add(FoundFile)

Answer 1

以下是使用GetFileNameWithoutExtension单独列出文件名的工作示例，以及您使用GetFileName的方式。

Dim fileName As String = "C:\mydir\myfile.ext"
Dim pathname As String = "C:\mydir\"
Dim result As String

result = Path.GetFileNameWithoutExtension(fileName)
Console.WriteLine("GetFileNameWithoutExtension('{0}') returns '{1}'", fileName, result)

result = Path.GetFileName(pathname)
Console.WriteLine("GetFileName('{0}') returns '{1}'", pathname, result)

如何仅列出文件名？

1 个答案: