找到“chrome.exe”

Question

我有一个调用 Chrome 的宏，但是在不同的机器上部署此代码会因 chrome 的完整文件路径在每台机器上不同而受到破坏。为了缓解这种情况，我想一次性搜索“chrome.exe”并将文件路径存储为变量。以下似乎可行，但是递归会产生堆栈空间问题（运行时错误 28）。

这个操作看起来很简单，递归搜索遍地都是普通的论坛，但我做不到！

Function Recurse(sPath As String) As String
Dim FSO As New FileSystemObject
Dim myFolder As Folder
Dim mySubFolder As Folder
Dim myFile As File
Application.ScreenUpdating = False
Set myFolder = FSO.GetFolder("C:\")
For Each mySubFolder In myFolder.SubFolders
    For Each myFile In mySubFolder.Files
        If myFile.Name = "chrome.exe" Then
            Debug.Print myFile.Name & " in " & myFile.Path
            Exit For
        End If
    Next
    Recurse = Recurse(mySubFolder.Path)
Next
Application.ScreenUpdating = True
End Function

Sub ChromeSearch()
Call Recurse("C:\")
End Sub

Answer 1

请注意，您将参数 sPath 传递给您的递归函数。

然后您将忽略此参数并在每次调用时搜索文件夹C:\。现在你有了一个没有终止条件的递归函数，所以你当然会得到一个堆栈溢出异常。

简单替换

Set myFolder = FSO.GetFolder("C:\")

与

Set myFolder = FSO.GetFolder(sPath)

并替换：

Recurse = Recurse(mySubFolder.Path)

有

Recurse = Recurse(sPath + "\\" + mySubFolder.Path);

（或者你用这种语言连接文件夹）

---

关于寻找Chrome.exe的话题，如果你先看两个地方，你会节省很多时间：

• "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe",
• (环境变量 LOCALAPPDATA) + "\Google\Chrome\Application\Chrome.exe"