Запустить два окна проводника бок о бок

Question

Есть ли способ запустить два окна обозревателя бок о бок (с вертикальной черепицей) с помощью пакетного скрипта?

Если нет, как я могу это сделать с помощью VBS?

Answer 1

Я изменил скрипт VBS выше по Hackoo делать именно то, что ОП хочет ...

Комментарии в скрипте объяснить то, что он будет делать.
Если два окна не установлены в правильное положение, увеличьте время сна и повторите попытку.
Если вы хотите горизонтальное разделение, используйте 'objShell.TileHorizontally'.

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 
'***************************************************** 

Answer 2

Это может быть ваша реклама в той же категории. :) How can a batch file run a program and set the position and size of the window?

К сожалению, похоже, что это невозможно без какого-либо внешнего программного обеспечения третьей части в пакетном режиме. Наверное, проще в VBS - если так, то ответ должен быть в ссылке.

Answer 3

Попробуйте этот код:

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 
'*****************************************************