如何通过文件名获取文件的完整路径

Question

我正试图从文件名中获取文件的路径。我在桌面上制作了一个可执行文件，Commands.exe，我正试图通过控制台应用程序获取文件的完整路径。我希望该程序在我的整个计算机上搜索该文件（为了简单起见，它在我的桌面上），并返回路径，记住文件可以在任何地方。我希望程序返回的路径是：

"C:\Users\Jimbob\Desktop\Commands.exe"

我的代码：

Imports System.IO
Module Module1
    Dim fileLocation As String
    Dim filename As String = "Commands.exe"
    Sub Main()
        fileLocation = Path.GetFullPath(filename)
        Console.WriteLine(fileLocation)
        Console.ReadLine()
    End Sub
End Module

但它却打印出

"C:\Users\Jimbob\Documents\Visual Studio 2012\Projects\get-pathtest\get-path test\bin\Debug\Commands.exe"

它打印出我所有代码所在项目的路径。在这个路径中，Debug文件夹中甚至没有Commands.exe。

帮助？

Answer 1

或者你不能只是

dim fileName as string = My.Application.Info.DirectoryPath() & "Commands.exe"

Answer 2

您可以使用目录。GetFiles或文件系统。GetFiles方法执行此操作。

大致如下：

fileLocation  = My.Computer.FileSystem.GetFiles("C:", 
                        FileIO.SearchOption.SearchAllSubDirectories, 
                        filename)(0)