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中可能更容易-如果是这样,答案应该在链接中。