在开始菜单中添加自定义文件夹

今天发现的好东东，终于可以在开始菜单中加入自己需要的文件夹链接了。
其实是替换了系统自带的"图片收藏"和“我的音乐”的链接。
是通过在网上发现的两个NB的VBS脚本实现的。
脚本的官方下载地址分别为：
替换“图片收藏”脚本 替换“我的音乐”脚本

使用说明：

双击直接执行相应的脚本

执行效果如下：

 

 

为避免下载链接丢失，记录相应的脚本文件如下：

smfoldermm.vbs

[sourcecode language='vb' padlinenumbers='true'] 'Copyright 2003 - Kelly Theriot 'http://www.kellys-korner-xp.com/xp_tweaks.htm On Error Resume Next Dim WshShell, bKey, cn, p1, p2, mybox, entryname Set WshShell = WScript.CreateObject("WScript.Shell") p1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Music" p2 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Music" n = "C:\Documents and Settings" t = "Add a Folder to the Start Menu - Top Right" cn = InputBox("Enter the drive and folder to be listed. Note: It will pick up the name of the folder. Also, this replaces the My Music Folder on the Start Menu. To control the display views use the My Music options under Advanced.", t, n) If cn <> "" Then entryname = cn wshshell.RegWrite p1, cn wshshell.RegWrite p2, cn, "REG_EXPAND_SZ" bKey = WshShell.RegRead(p1 & "") bKey = WshShell.RegRead(p2 & "") Else WScript.Quit End If MsgBox entryname & " has been added to the Start Menu. You must Log Off/Log On for the changes to take effect or End Process on Explorer.exe.",4096,"Finished!" [/sourcecode]

 

smfoldermp.vbs

[sourcecode language='vb' ] 'Copyright 2003 - Kelly Theriot 'http://www.kellys-korner-xp.com/xp_tweaks.htm On Error Resume Next Dim WshShell, bKey, cn, p1, p2, mybox, entryname Set WshShell = WScript.CreateObject("WScript.Shell") p1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Pictures" p2 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Pictures" n = "C:\Documents and Settings" t = "Add a Folder to the Start Menu - Top Right" cn = InputBox("Enter the drive and folder to be listed. Note: It will pick up the name of the folder. Also, this replaces the My Pictures Folder on the Start Menu. To control the display views use the My Pictures options under Advanced.", t, n) If cn <> "" Then entryname = cn wshshell.RegWrite p1, cn wshshell.RegWrite p2, cn, "REG_EXPAND_SZ" bKey = WshShell.RegRead(p1 & "") bKey = WshShell.RegRead(p2 & "") Else WScript.Quit End If MsgBox entryname & " has been added to the Start Menu. You must Log Off/Log On for the changes to take effect or End Process on Explorer.exe.",4096,"Finished!" [/sourcecode]

 

 

最后，测试下MP3 Player 插件，放首歌：我想大声告诉你