dahual

分享快乐！修正了下，这下可以了。

'ReadRegVal
Function ReadRegVal(Key)
	On Error Resume Next
	Set wshShell=CreateObject("WScript.Shell")
	ReadRegVal=wshShell.RegRead(Key)
	Set wshShell=Nothing
	If Err.Number<>0 Then
		MsgBox "描述：注册表键(值) """ & Key & """ 未找到!",vbCritical,"Error"
		WScript.Quit
	End If
End Function
'AddShellNew
Sub AddShellNew(ExtensionName)
	Set wshShell=CreateObject("WScript.Shell")
	Link=ReadRegVal("HKCR\"& ExtensionName & "\")
	Description=ReadRegVal("HKCR\" & Link &"\")
	NewDescription=InputBox("新建文件描述：","设置",Description)
	If NewDescription<>"" Then
		wshShell.RegWrite "HKCR\" & Link &"\",NewDescription
	End If
	wshShell.RegWrite "HKCR\" & ExtensionName & "\ShellNew\NullFile",""
	Set wshShell=Nothing
End Sub
'RemoveShellNew
Sub RemoveShellNew(ExtensionName)
	Set wshShell=CreateObject("WScript.Shell")
	wshShell.RegDelete "HKCR\" & ExtensionName & "\ShellNew\"
	Set wshShell=Nothing
End Sub
'''''''
Call AddShellNew(".vbs")
'Call RemoveShellNew(".vbs")
复制代码