Else
' 位置编号合法，从注册表读取信息
ChangePlace place
End If
Wend
' 修改指定的位置
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, theType
End Sub
应该承认，modifyPlaces.vbs没有太多的错误控制机制，而且它的用户界面也很粗糙。如果你想要一个专业一点的程序，最好把它转换成VB代码。图三显示了把“c:\test\”、“我的电脑”指定为位置条上两个位置后的“打开”对话框。
图三：经过定制的“打开”对话框
下面是SetDefaultPlaces.vbs脚本，该程序删除Placesbar子键，恢复默认的位置条设置。如前所述，除非我们创建了Placesbar子键，否则它是不存在的。如果Win2K/XP找不到Placesbar子键，位置条将默认使用标准配置。
' 常量
const APP_TITLE = "恢复“打开”对话框的位置条"
const REG_PLACESBAR = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ComDlg32\Placesbar\"
' 是否继续？
rc = MsgBox("点击“确定”恢复标准的位置条配置", 1, APP_TITLE)
If rc <> 1 Then
WScript.Quit
End If
' 删除Policies\ComDlg32下的所有注册键，启用标准的位置条配置
Set shell = CreateObject("WScript.Shell")
On Error Resume Next
shell.RegDelete(REG_PLACESBAR)
' 完成...
MsgBox "已经恢复默认的位置条配置", , APP_TITL
四、Office的位置条
前面的注册表修改只影响那些使用Win2K/XP公用对话框代码库的程序，Office使用的对话框来自一个经过定制的代码库。因此，修改Win2K/XP“打开”对话框的位置条不会对Word和Excel的位置条产生任何影响。
但是，Office 2000也提供了定制其位置条的办法，相关的注册键是HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\Open Find\Places；对于Office XP，注册键路径是HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common\Open Find\Places\UserDefinedPlaces。
不过，如果你只是想要定制位置条，可以不通过该注册键。Microsoft提供了一个方便的修改位置条的工具，你可以把它安装到Office 2000软件的“工具”菜单。这个工具可以从http://support.microsoft.com/support/kb/articles/q260/1/90.asp下载，下载包带有该插件的完整VB源代码和如何使用该工具的说明。
下载places.exe文件之后，双击解开压缩包。然后，点击Win2K/XP的“开始/运行”菜单，输入“regsvr32 <路径>\places.dll”，并确认注册places.dll。此时如果你打开了Office 2000的程序，请先关闭它再打开。这时，Office软件的“工具”菜单上会出现一个“Set Places”菜单项，你可以用它来设置位置条上的各个位置。与Win2K的标准对话框不同，Office 2000软件的位置条支持小图标。使用小图标时，位置条上的文件夹数量不再有最多5个的限制。无论在哪一个Office 2000软件中修改位置条，改动结果将对所有Office 2000软件有效。
位置条是一种很不错的工具，但只有当它列出的位置恰好是你常用的文件夹时，它的优势才能充分发挥出来。有了本文的知识，现在你也应该能够随心所欲地定制Win2K/XP和Office的位置条了。
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
