“打开/另存为”对话框位置栏修改器

namejm

　　当我们使用诸如记事本、word之类的软件菜单栏里的“打开”或“另存为”按钮的时候，系统会弹出一个对话框让大家定位文件路径。为了快速定位到一些常用的位置，微软在对话框的左侧为大家准备了5个常用路径，分别是：我最近的文档、桌面、我的文档、我的电脑、网上邻居。

　　按理说，微软的这个设计是比较贴心的。可是，每个用户都有自己独特的操纵习惯，经常打开的路径是千差万别的，而微软并没有在前台界面开放重设这5个路径的功能，需要通过各种各样的工具软件深入注册表内部做调整。目前网上有这个功能的工具软件较为罕见，于是萌发了用批处理做一个调整“打开/另存为”对话框位置栏工具的念头。经过一番摸索，得到了以下代码，发出来共享之。

　　这个批处理具有如下功能：

　　1、自行指定“打开/另存为”对话框位置栏的路径；
　　2、重新调整自行指定路径的顺序

　　使用这个批处理调整前后效果对比：
   


　　支持多种输入方式：



　　注意事项：

　　1、最多只能修改5个路径；
　　2、若系统是XP_SP1或XP_SP2，系统自带的reg.exe在查询中文路径的时候，会出现“吃字”现象，请用附件中的reg.exe替换之，或放在批处理的相同目录下使用；若不知道reg.exe“吃字”是怎么回事，请阅读这篇文章：reg requery查询注册表时中文路径会"吃掉"最后的字符？http://www.cn-dos.net/forum/viewthread.php?tid=22202
　　3、代码没有做全面的容错检测，请严格按照提示操作，否则，将不能正确修改路径。

1. @echo off
   
2. 
   
3. :: Code by namejm 2009.3.12 Modified on 2009.3.13
   
4. :: 不支持带感叹号的路径
   
5. :: 争取对默认设置的次序进行重排
   
6. 
   
7. set TT="打开/另存为"对话框位置栏修改器
   
8. title %TT%
   
9. mode con lines=25 cols=70
   
10. setlocal enabledelayedexpansion
    
11. set RegPath=HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\comdlg32
    
12. 
    
13. :Main
    
14. cls
    
15. for /f "delims==" %%i in ('set place 2^>nul') do set "%%i="
    
16. set custom=
    
17. for /f "skip=4 tokens=1,2*" %%i in ('reg query %RegPath%\Placesbar 2^>nul') do (
    
18.     set custom=yes
    
19.     set "%%i=%%k"
    
20. )
    
21. 
    
22. :ShowConfigDefault
    
23. title %TT%-默认设置
    
24. if not defined custom (
    
25.     echo.&echo                     当前使用的是系统默认的设置
    
26.     echo  ____________________________________________________________________
    
27.     echo.&echo                         位置序号 对应的路径
    
28.     echo                    ——————————————
    
29.     echo                            1    我最近的文档
    
30.     echo                            2    桌面
    
31.     echo                            3    我的文档
    
32.     echo                            4    我的电脑
    
33.     echo                            5    网上邻居
    
34.     echo                    ——————————————
    
35.     echo                      建议自行设置更合理的位置
    
36.     echo.&echo.
    
37.     echo.
    
38.     echo          退出请按 0                            全新设置请按 1
    
39.     echo  ____________________________________________________________________
    
40.     echo.
    
41.     set choice=
    
42.     set /p choice=                      请输入功能代码（0/1）：
    
43.     if not defined choice (
    
44.         goto Main
    
45.     ) else (
    
46.         if "!choice!"=="0" exit
    
47.         if "!choice!"=="1" goto SetNew
    
48.     )
    
49.     goto ShowConfigDefault
    
50. )
    
51. 
    
52. :ShowConfigCustom
    
53. title %TT%-自定义设置
    
54. cls
    
55. echo.&echo                     当前使用的是用户自定义设置
    
56. echo  ____________________________________________________________________
    
57. echo.&echo                         位置序号 对应的路径
    
58. echo                  ——————————————————
    
59. set num=0
    
60. for /f "delims==" %%i in ('set path_ 2^>nul') do set "%%i="
    
61. for /f "tokens=1* delims==" %%i in ('set place') do (
    
62.     set /a num+=1
    
63.     set "path_!num!=%%~j"
    
64.     echo                            !num!         "%%~j"
    
65. )
    
66. echo                  ——————————————————
    
67. echo.&echo.&echo.
    
68. echo             退出请按 0                      恢复默认设置请 1
    
69. echo  ____________________________________________________________________
    
70. echo.
    
71. echo           调整当前设置的顺序请按 2        重新设置新路径请按 3
    
72. echo.
    
73. set choice=
    
74. set /p choice=                请输入功能代码（0/1/2/3）：
    
75. if not defined choice (
    
76.     goto ShowConfigCustom
    
77. ) else (
    
78.     if "%choice%"=="0" exit
    
79.     if "%choice%"=="1" reg delete %RegPath% /f>nul&goto Main
    
80.     if "%choice%"=="2" goto SortConfig
    
81.     if "%choice%"=="3" goto SetNew
    
82. )
    
83. goto ShowConfigCustom
    
84. 
    
85. :SortConfig
    
86. title %TT%-调整顺序
    
87. cls
    
88. echo.&echo                              自定义位置的顺序
    
89. echo  ____________________________________________________________________
    
90. echo.&echo                         位置序号 对应的路径
    
91. echo                  ——————————————————
    
92. for /f "tokens=2* delims=_=" %%i in ('set path_') do (
    
93.     set "str=%%j"
    
94.     echo                            %%i     "!str!"
    
95. )
    
96. echo                  ——————————————————
    
97. echo.&echo  ____________________________________________________________________
    
98. echo.
    
99. echo                若要调整自定义位置的当前顺序，请按照以下步骤操作：
    
100. echo.&echo                重新排列 1～%num% 这%num%个数字，并以空格分隔
     
101. echo.&echo                重排后的数字顺序就是新的路径顺序
     
102. echo.
     
103. set order=
     
104. set /p order=        请依次输入重排后的数字，并以空格分隔（退出请按0）：
     
105. if not defined order goto SortConfig
     
106. if "%order%"=="0" exit
     
107. set /a num1=0
     
108. 
     
109. :: 需要对形如 c:\ 的路径做特别处理
     
110. for %%i in (%order%) do (
     
111.     if %%i gtr %num% goto SortConfig
     
112.     set /a num2=%%i-1
     
113.     call set "var=%%place!num2!%%"
     
114.     if "!var:~-1!"=="" set "var=!var!"
     
115.     set "str!num1!=!var!"
     
116.     set /a num1+=1
     
117. )
     
118. 
     
119. set /a num-=1
     
120. reg delete %RegPath%\Placesbar /f>nul
     
121. for /l %%i in (0,1,%num%) do (
     
122.     reg add %RegPath%\Placesbar /v place%%i /t REG_SZ /d "!str%%i!">nul
     
123. )
     
124. echo.&pause
     
125. goto Main
     
126. 
     
127. :SetNew
     
128. title %TT%-指定新路径
     
129. cls
     
130. reg delete %RegPath% /f>nul 2>nul
     
131. echo.&echo                          请指定新的路径
     
132. echo  ____________________________________________________________________
     
133. echo.&echo        注意事项：
     
134. echo                ① 不能输入不存在的路径
     
135. echo                ② 若只输入盘符，一定要以两条反斜杠结束，
     
136. echo            比如：c:\\
     
137. echo                ③ 若输入的是路径，结尾部分不能带任何反
     
138. echo            斜杠，比如：c:\test
     
139. echo                ④ 最多只能输入5条路径
     
140. echo        小技巧：① 可以把文件夹直接拖曳到本窗口
     
141. echo                ② 输入的内容可以是类标识符（CLSID），
     
142. echo            但是需要在类标识符前加双冒号::
     
143. echo         ————————————————————————
     
144. echo.
     
145. set num=0
     
146. for /f "delims==" %%i in ('set str 2^>nul') do set "%%i="
     
147. for /l %%i in (1,1,5) do (
     
148.     set /p str%%i=        请输入第%%i个路径（直接回车将结束输入）：
     
149.     if defined str%%i (
     
150.         set /a num+=1
     
151.         set "str%%i=!str%%i:"=!"
     
152.     ) else goto ChangePath
     
153. )
     
154. 
     
155. :ChangePath
     
156. echo  ____________________________________________________________________
     
157. set num1=0
     
158. for /l %%i in (1,1,%num%) do (
     
159.     reg add %RegPath%\Placesbar /v place!num1! /t REG_SZ /d "!str%%i!">nul
     
160.     set /a num1+=1
     
161. )
     
162. echo.&pause
     
163. goto Main

复制代码

[ 本帖最后由 namejm 于 2009-3-15 08:58 编辑 ]

lxl1638

看不到图，只有XX，传到那个论坛也看不到，因为没有在那里注册，楼主或版主对这帖处理一下，直接帖图，不要用链接，否则很多人看不到图，没有有不知效果如何，"精而无效"。

yjd

看不到图。不知道是什么效果？

namejm

　　本来想在我的论坛更新的时候不用再到这里来更新，可惜图片在这里没法正常显示，已经在顶楼更新了图片。

lxl1638

作为一个CMD批处理，能修改“打开/另存为”对话框初始化位置，的确可精。
但要用CMD调出“打开/另存为”对话框不是一般人能做到的，不知楼主有没有CMD批处理调出“打开/另存为”对话框的方法？
如果在程序中用微软的API调出“打开/另存为”对话框，可以通过参数直接定位到想要的位置，PECMD.EXE 的 BROW 命令就是这样：

┣━━━┿━━┿━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫
┃      │格式│BROW <变量名>,[[*|&]初始路径],[提示文字],[扩展名]                                           ┃
┃      ├──┼──────────────────────────────────────────────┨
┃      │功能│浏览磁盘文件和目录。                                                                        ┃
┃      ├──┼──────────────────────────────────────────────┨
┃      │参数│■变量名  : 用于保存浏览结果的变量名。                                                      ┃
┃      │    │■初始路径: 为浏览窗口默认选中的文件或目录，省略该参数时定位到系统默认的路径；前导符"*"为浏 ┃
┃'BROW'│    │            览目录对话框，前导符"&"为保存文件对话框，省略前导符为打开文件对话框。           ┃
┃      │    │■提示文字: 可以省略，省略时默认的文字为系统默认的文字提示。                                ┃
┃      │    │■扩展名  : 浏览指定扩展名的文件，省略表示所有文件。                                        ┃
┃      ├──┼──────────────────────────────────────────────┨
┃      │示例│BROW Boot_Ini,C:\Windiws\BOOT.INI,请选择一个文件,INI 或 BROW Tag,*C:\Windiws,请选择一个目录 ┃
┃      ├──┼──────────────────────────────────────────────┨
┃      │备注│※本命令会打开一个文件目录浏览对话窗，让用户浏览磁盘文件目录，用户可选择某个文件或目录。    ┃
┃      │    │※选择结果将保存在指定的进程环境变量中。示例2可通过环境变量 %Tag% 来引用。                  ┃
┃      │    │※BROW命令必须在INIT命令之后或在桌面执行。                                                  ┃
┣━━━┿━━┿━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫

[ 本帖最后由 lxl1638 于 2009-3-15 09:16 编辑 ]

namejm

　　用cmd调出“打开/另存为”对话框，并定位到指定位置，据我所知，目前尚难以办到，不过，如果只是打开指定的文件夹的话，用 start "" "%windir%" 这条命令就可以办到，只是不能通过“打开/另存为”对话框来定位而已。

kidzgy

BAT真是妙极了，不过单单一个文件的话，输入路径就比较有点麻烦。
这里发一个EXE程序。以便研究.

namejm

　　输入路径支持拖曳方式，在输入路径的界面中有提示的。不过批处理也只能这样了，点选方式是没法支持的。

aidixiao

好东西，谢谢楼主分享！

yqi99

用wfile,可以实现点选方式吧.