下面介绍一个modifyplaces.vbs脚本，这是一个自动读取和写入位置信息的程序。在win2k命令窗口下，执行“cscript modifyplaces.vbs”或“wscript modifyplaces.vbs”即可启动该程序，参见图二。程序首先询问你想要修改的位置编号。如果输入0到4之间的数字，程序继续，点击“是”用路径指定文件夹，点击“否”用id数字指定文件夹。点击“是”之后，程序要求你输入一个完整的路径名，完成后，程序将创建一个reg_sz注册键。如果选择了“否”，程序要求输入一个系统文件夹id，完成后，程序创建一个reg_dword子键。指定一个位置之后，程序允许你继续指定其他的位置。

图二：定制位置条

' 常量const app_title = "设置“打开”对话框的位置条"const reg_placesbar = "hkcu\software\microsoft\windows\ currentversion\policies\comdlg32\placesbar\"dim place ' 位置编号dim cancontinue ' 逻辑开关' 获取待设置的位置编号cancontinue = truewhile cancontinue place = inputbox("输入位置编号 (0到4)", app_title, 0) ' 点击了“取消”按钮... if place = "" then wscript.quit end if if place > 4 then msgbox "位置编号错误，请指定0-4之间的位置编号!", 16, app_title else ' 位置编号合法，从注册表读取信息 changeplace place end ifwend' 修改指定的位置sub changeplace (place) dim shell, curpath, buf, rc, newpath, thetype set shell = createobject("wscript.shell") on error resume next curpath = shell.regread(reg_placesbar & "place" & place) on error goto 0 ' 默认值 if curpath = "" then curpath = "默认值" buf = "" buf = buf & "位置" & place & "当前被设置为" & _ chr(34) & curpath & chr(34) & vbcrlf & vbcrlf & _ "点击“是”指定一个普通文件夹" & vbcrlf & _ "点击“否”指定一个系统文件夹" & vbcrlf & _ "点击“取消”退出程序" rc = msgbox(buf, 3, app_title) ' yes=6, no=7, cancel=2 if rc = vbcancel then exit sub ' 修改位置 select case rc case vbyes newpath = inputbox("输入新的文件夹路径", app_title, curpath) if newpath = "" then exit sub thetype = "reg_sz" case vbno buf = "" buf = buf & "选择新的文件夹." & vbcrlf & vbcrlf & _ "5 - 我的文档" & vbcrlf & _ "6 - 收藏" & vbcrlf & _ "17 - 我的电脑" & vbcrlf & _ "18 - 网上邻居" & vbcrlf & _ "36 - windows系统目录" & vbcrlf & _ "34 - 历史" newpath = inputbox(buf, app_title, curpath) if newpath = "" then exit sub thetype = "reg_dword" end select shell.regwrite reg_placesbar & "place" & place, newpath, thetypeend sub