n=InputBox("请在下面输入收藏夹的路径"&vbCrLf&""&vbCrLf&"完整示例：D:\Favorites"&vbCrLf&""&vbCrLf&"By www.gangzi.org","VBS更改收藏夹路径","D:\我的文档\Favorites")
if n<>"" then
Set WshShell1 = WScript.CreateObject("WScr"&"ip"&"t.She"&"ll")
WshShell1.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Favorites",""&n&""
msgbox "收藏夹路径已成功更新为："&n&""
end if