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

[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]

[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]