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

今天发现的好小编,终于可以在开始菜单中加入自己需要的文件链接了。
其实是替换了系统自带的"图片收藏"和“我的音乐”的链接
是通过在网上发现的两个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,"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,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.","Finished!"
[/sourcecode]




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

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...