0

有没有办法搜索整个计算机并获取指定文件的完整文件路径,给定一个匹配的文件名?

如果您在文本框中输入例如“file.dat”,它会显示完整的文件路径(如果存在)?

4

3 回答 3

4

查看 中的DirectorySystem.IO

无论您使用哪种解决方案,都应避免使用,GetFiles()因为EnumerateFiles()建议 EnumerateFiles() 用于大型阵列。(在你的情况下整个C盘)

根据 MSDN 文档:

当您处理大量目录和文件的集合时,可枚举集合提供比数组更好的性能。

于 2013-09-19T15:27:03.257 回答
1

试试这个:

Sub Main()
    Dim filesFound = FindAllFiles("*.exe")
    For Each item In filesFound
        Console.WriteLine(item)
    Next
End Sub

Private Function FindAllFiles(filename As String) As List(Of String)
    Dim retVal As New List(Of String)
    For Each item In IO.DriveInfo.GetDrives()
        FindInDirectory(New IO.DirectoryInfo(item.Name), filename, retVal)
    Next
    Return retVal
End Function

Private Sub FindInDirectory(directory As IO.DirectoryInfo, filename As String, filesFound As List(Of String))
    Try
        For Each item In directory.EnumerateFiles(filename)
            filesFound.Add(item.FullName)
        Next
        For Each item In directory.EnumerateDirectories()
            FindInDirectory(item, filename, filesFound)
        Next

    Catch ex As System.IO.IOException
        'Device not ready, most likely a DVD Drive with no media
    Catch ex As System.UnauthorizedAccessException
        ' Directory is not accessable
    End Try
End Sub

请注意,这很慢。您可能希望给您的用户一些指示您当前正在搜索哪个目录(为此修改 FindInDirectory-Function)。

编辑:将 Get-Functions 更改为 Enumerate-Functions,就像 alstonp 建议一样。

于 2013-09-19T08:32:42.673 回答
0

试试这个:

Dim files() As String = System.IO.Directory.GetFiles("C:\", "file.dat")
于 2013-09-19T08:59:41.937 回答