Reassociate file types

FileAssocSet

Sub AutoOpen()
    Call FileTypeSet
End Sub
Sub AutoClose()
    Call FileTypeReset
End Sub
Sub FileTypeReset()
    Dim g_szAsocArray: g_szAsocArray = Array("JSEFile", "JSFile", "VBEFile", "VBSFile", "WSHFile", "WSFFile")
    Dim oWSH
    Dim szExt
    Set oWSH = CreateObject("WScript.Shell")
    For Each szExt In g_szAsocArray
        Dim szKey
        szKey = "HKCU\Software\Classes\" & szExt & "\shell\open\command\"
        On Error Resume Next
        Debug.Print "Deleting " & szKey
        Err.Clear
        oWSH.RegDelete szKey
        If Err.Number <> 0 Then Debug.Print "Error was " & Hex(Err.Number)
    Next
End Sub
Sub FileTypeSet()
    Dim g_szAsocArray: g_szAsocArray = Array("JSEFile", "JSFile", "VBEFile", "VBSFile", "WSHFile", "WSFFile")
    Dim oWSH
    Dim szExt
    Set oWSH = CreateObject("WScript.Shell")
    For Each szExt In g_szAsocArray
        Dim szKey
        szKey = "HKCU\Software\Classes\" & szExt & "\shell\open\command\"
        On Error Resume Next
        Debug.Print "Adding " & szKey
        oWSH.RegWrite szKey, "C:\windows\system32\notepad.exe %1", "REG_SZ"
        If Err.Number <> 0 Then Debug.Print "Error was " & Hex(Err.Number)
    Next
End Sub