本帖最后由 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
复制代码
|