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