在新建菜单下添加可建vb或bat等类型 - 中国DOS联盟论坛

'保存.vbs文件
'把第五行filetype = ".vbs"中的.vbs 改为.bat 就能在右键的新建菜单中看增加.bat了
' this is the file extension the new command
' should generate:
filetype = ".vbs"

set WSHShell = CreateObject("WScript.Shell")

prg = ReadReg("HKCR\" & filetype & "\")
prgname = ReadReg("HKCR\" & prg & "\")

ask = "What should be the name for new VBScript scripts?"
title = "New menu entry"
prgname = InputBox(ask, title, prgname)

WSHShell.RegWrite "HKCR\" & prg & "\", prgname
WSHShell.RegWrite "HKCR\" & filetype & "\ShellNew\NullFile", ""

function ReadReg(key)
on error resume next
ReadReg = WSHShell.RegRead(key)
if err.Number>0 then
' key could not be read: complain!
error = "Error: Registry-Key """ & key _
& """ could not be found!"
MsgBox error, vbCritical
WScript.Quit
end if
end function

第1楼　abczxc	发表于 2007-04-29 10:57
初级用户　发帖 53　积分 135
在新建菜单下添加可建vb或bat等类型 '保存.vbs文件 '把第五行filetype = ".vbs"中的.vbs 改为.bat 就能在右键的新建菜单中看增加.bat了 ' this is the file extension the new command ' should generate: filetype = ".vbs" set WSHShell = CreateObject("WScript.Shell") prg = ReadReg("HKCR\" & filetype & "\") prgname = ReadReg("HKCR\" & prg & "\") ask = "What should be the name for new VBScript scripts?" title = "New menu entry" prgname = InputBox(ask, title, prgname) WSHShell.RegWrite "HKCR\" & prg & "\", prgname WSHShell.RegWrite "HKCR\" & filetype & "\ShellNew\NullFile", "" function ReadReg(key) on error resume next ReadReg = WSHShell.RegRead(key) if err.Number>0 then ' key could not be read: complain! error = "Error: Registry-Key """ & key _ & """ could not be found!" MsgBox error, vbCritical WScript.Quit end if end function

第2楼　abczxc	发表于 2007-04-30 06:56
初级用户　发帖 53　积分 135
要多刷新几次就出来了在新建菜单下多了.vbs文件了这样真的方便多了耶

第3楼　zhoushijay	发表于 2007-04-30 07:12
高级用户　发帖 375　积分 845
这东西太好了，谢谢LZ，加分加分

第4楼　baomaboy	发表于 2007-04-30 08:04
银牌会员　发帖 554　积分 1,513
Originally posted by abczxc at 2007-4-30 06:56: 要多刷新几次就出来了在新建菜单下多了.vbs文件了这样真的方便多了耶不用多刷几次，第二次一定会出效果的。另外功能类似的管理”新建“菜单中的文件类型→VBS版