windows - 确定打开给定文件扩展名的默认程序 - VBS

Question

我找到了一些答案，但没有任何一个可以准确地解决我的问题，或者不使用 VBS。

我正在寻找一种方法来确定提供特定文件扩展名时默认程序的完整路径。

我的最终目标是自动为打开“.DOC”文件(通常是 MS Word)的任何程序创建快捷方式。但这在不同的 Windows 机器上显然会有所不同。

我很想做这样的事情:

strDefaultDOCProgram = WshShell.FindAssociatedProgram("doc")

在哪里

strDefaultDOCProgram = "C:\Program Files\Microsoft Office 15\root\office15\winword.exe"

也许有帮助？ Ask Windows 7 - what program opens this file by default

Answer 1

我最终决定使用 assoc 和 ftype 命令，以防万一我们想在任何其他 Windows 版本上使用此脚本。这是一个可以完成我需要的一切的功能。我希望它对某人有帮助!

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")

' Should supply the program extension with period "." included
Function GetProgramPath(ext)
Dim strProg, strProgPath

' Get Program Association Handle
Set oExec =  WshShell.Exec("cmd.exe /c assoc " & ext)
strProg = oExec.StdOut.ReadLine()
strProg = Split(strProg, "=")(1)

' Get Path To Program
Set oExec =  WshShell.Exec("cmd.exe /c ftype " & strProg)
strProgPath = oExec.StdOut.ReadLine()
strProgPath = Split(strProgPath, """")(1)

' Return the program path
GetProgramPath = strProgPath

End Function

strPath = GetProgramPath(".doc")
WScript.Echo strPath