添加删除文件关联函数

Public Function mak_fa(fext As String, extid As String, extanm As String, extico As String) As Boolean
    On Error Goto erh
    mak_fa = True
    Dim o As Object
    Set o = CreateObject("wscript.shell")
    o.regwrite "HKCR\." + fext + "\", extid, "REG_SZ"
    o.regwrite "HKCR\." + fext + "\DefaultIcon\", extico, "REG_SZ"
    o.regwrite "HKCR\." + fext + "\Shell\Open\Command\", extanm + " %1", "REG_SZ"
    Exit Function
    erh:
    mak_fa = False
End Function


Public Function rem_fa(fext As String) As Boolean
    On Error Goto erh
    rem_fa = True
    Dim o As Object
    Set o = CreateObject("wscript.shell")
    o.regdelete "HKCR\." + fext
    Exit Function
    erh:
    rem_fa = False
End Function