批处理之家 - Powered by Discuz! Board

标题: [文件操作] [已解决]批处理如何设置指定文件夹的查看方式？ [打印本页]

作者: 807979023 时间: 2014-11-26 10:55 标题: [已解决]批处理如何设置指定文件夹的查看方式？

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

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

作者: CrLf 时间: 2014-11-26 17:46

http://bbs.bathome.net/thread-33090-1-1.html

作者: 807979023 时间: 2014-11-26 20:33

本帖最后由 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

---------------------------------------------
批处理:

cmdow @ /HID
taskkill /f /im explorer.exe
start explorer.exe
ping 127.1 -n 1 >nul

Explorer d:\11
图标.vbs
ping 127.1 -n 2 >nul
cmdow 11 /CLS

Explorer d:\22
缩略.vbs
ping 127.1 -n 2 >nul
cmdow 22 /CLS
复制代码

作者: CrLf 时间: 2014-11-28 11:26

忘了说，把 exit for 去掉

作者: 807979023 时间: 2014-12-5 20:26

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

谢谢，运行成功！

欢迎光临批处理之家 (http://www.bathome.net/)