使用fso.FileExists在指定文件夹"Desktop/Test_Folder/Test_Folder_Apps"
中搜索快捷方式“ Google”时,我的程序总是返回它不存在的地方。
我有一个充满应用程序和网站快捷方式的文件夹,我正在尝试制作一个程序,当要求打开特定应用程序时,它将搜索该文件夹并打开该应用程序的快捷方式(如果存在),或者如果没有,则返回一个msgbox。以前,我有一个if / then语句列表,这些语句链接到唯一的Program.Run命令,每个命令都有一个目录。这工作正常,但我希望能够添加新的快捷方式而不必创建新的代码来适应它。 经过一番研究后,我最终尝试使用fso和.FileExists命令在文件夹中找到其中一个快捷方式,但是每次运行该程序时,它都说该文件即使存在完整的目录路径也不存在:{{1 }}
这时,我已经创建了一个单独的测试文件夹,其中包含单个快捷方式“ Google”,但似乎仍然找不到它。
fso.FileExists("C:\Users\User\Desktop\Test_Folder\Test_Folder_Apps\Google"
由于现在的代码是,我希望它搜索其中存在的文件Test_Folder_Apps / Google快捷方式,然后将其打开。但是,每次返回
“找不到程序”消息。
如果我取出'Declare variables
Dim fso, Program
'Define variables
Set fso = CreateObject("Scripting.FileSystemObject")
Set Program = WScript.CreateObject("WScript.Shell")
'Main program
If
(fso.FileExists("C:\Users\User\Desktop\Test_Folder\Test_Folder_Apps\Google"))
Then
Program.Run("C:\Users\User\Desktop\Test_Folder\Test_Folder_Apps\Google")
Set Program = Nothing
Else
Msgbox("Program couldn't be found")
End If
并告诉它只是打开它找到的链接,然后将其打开就很好,那么我认为我的搜索代码有问题。
任何帮助将不胜感激。