使用VBS更改文件关联的正确方法？

Question

如何删除或更改某些应用程序的所有文件关联？

例如，我安装了MS Office 2007，并且我想删除与Office软件包关联的所有文件关联，或者至少删除与office软件包中的某些exe文件关联的文件关联。 我需要这个适用于各种应用程序而不仅仅是Office。

最好的问候，Primoz

Answer 1

Option Explicit
Dim objShell
set objShell = WScript.CreateObject ("WScript.Shell")

'Change this line
addFileAssociation ".txt", "notepad.exe"

Sub addFileAssociation( fileExt, whichApp )
If ( Left(fileExt, 1) <> "." ) Then
fileExt = "." & fileExt
End If
objShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & fileExt & "\Application", whichApp
End Sub