[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文件操作] [已解决]批处理如何设置指定文件夹的查看方式?

本帖最后由 807979023 于 2014-11-28 11:15 编辑

不同的文件夹需要不同的查看方式,如 缩略 平铺 图标 列表 详细.
虽然操作简单,但重装系统后再逐一设置很麻烦.
有没有第三方工具能设置指定文件夹的查看方式?
这样可编个批处理一次完成.

TOP

本帖最后由 807979023 于 2014-11-28 11:08 编辑

感谢回复,配合cmdow.exe,已解决.

如 缩略.vbs :

Dim Shell
Set Shell = CreateObject("Shell.Application")

For Each window In Shell.Windows()
   If LCase(Right(window.FullName,13)) = "\explorer.exe" Then
      window.Document.CurrentViewMode = 5
      '设置查看方式为缩略
      Exit For
   End If
Next

---------------------------------------------
批处理:
  1. cmdow @ /HID
  2. taskkill /f /im explorer.exe
  3. start explorer.exe
  4. ping 127.1 -n 1 >nul
  5. Explorer d:\11
  6. 图标.vbs
  7. ping 127.1 -n 2 >nul
  8. cmdow 11 /CLS
  9. Explorer d:\22
  10. 缩略.vbs
  11. ping 127.1 -n 2 >nul
  12. cmdow 22 /CLS
复制代码

TOP

忘了说,把 exit for 去掉

TOP

本帖最后由 807979023 于 2023-12-7 21:44 编辑

谢谢,运行成功!

TOP

返回列表