关于批处理文件:并排启动两个资源管理器窗口

 2021-04-26 

Launch two Explorer windows side-by-side

有没有一种方法可以与批处理脚本并排启动两个资源管理器窗口(垂直平铺)?

如果没有,我该如何使用VBS?


我已经修改了Hackoo的上述VBS脚本,以完全执行OP想要的操作...

脚本中的注释完全解释了它将执行的操作。
如果两个窗口的位置都不正确,请增加"睡眠"时间,然后重试。
如果要水平分割,请使用\\'objShell.TileHorizo??ntally \\'。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' Launches two Explorer windows side-by-side filling the screen dimensions.
''' Minimizes all current open windows before launch; if this is not done,
''' the current open windows will also be resized along with our two windows.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim Calc,AppData,objShell
Calc ="%windir%\\system32\\calc.exe"
AppData ="%AppData%"
Set objShell = CreateObject("shell.application")

objShell.MinimizeAll
Call Explore(Calc)
WScript.Sleep 800
Call Explore(AppData)
WScript.Sleep 800
objShell.TileVertically
Set objShell = nothing

'*****************************************************
Function Explore(Path)
    Dim ws
    set ws = CreateObject("wscript.shell")
    Explore = ws.run("Explorer /n,/select,"& Path &"")
End Function
'*****************************************************

尝试此代码:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Dim Calc,AppData
Calc ="%windir%\\system32\\calc.exe"
AppData ="%AppData%"
Call Explore(Calc)
Call Explore(AppData)
'*****************************************************
Function Explore(Path)
    Dim ws
    set ws = CreateObject("wscript.shell")
    Explore = ws.run("Explorer /n,/select,"& Path &"")
End Function
'*****************************************************


这可能与您的问题属于同一类别。 :)
批处理文件如何运行程序并设置窗口的位置和大小?

不幸的是,如果没有批处理任何外部第三方软件,这似乎是不可能的。在VBS中可能更容易-如果是这样,答案应该在链接中。