Правильный способ изменить ассоциации файлов с помощью VBS?

Question

Как я могу удалить или изменить ВСЕ ассоциации файлов для определенного приложения?

Например, у меня установлен MS Office 2007, и я хочу удалить все ассоциации файлов, связанные с пакетом Office, или, по крайней мере, те, которые связаны с определенными exe-файлами, из пакета office. Мне это нужно для различных приложений, а не только для Office.

С уважением, Примоз

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