Блог

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

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

С наилучшими пожеланиями, Primoz

 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 = "." amp; fileExt
End If
objShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerFileExts" amp; fileExt amp; "Application", whichApp
End Sub