gpt4 book ai didi

batch-file - 并排启动两个资源管理器窗口

转载 作者:行者123 更新时间:2023-12-02 17:26:28 25 4
gpt4 key购买 nike

有没有办法使用批处理脚本并排(垂直平铺)启动两个资源管理器窗口?

如果没有,我该如何使用 VBS 来做到这一点?

最佳答案

我已经通过 Hackoo 修改了上面的 VBS 脚本,以完全按照 OP 的要求...

脚本中的注释准确地解释了它将做什么。
如果两个窗口未设置到正确位置,请增加“ sleep ”时间并重试。
如果您想要水平分割,请使用“objShell.TileHorizo​​ntally”。

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

关于batch-file - 并排启动两个资源管理器窗口,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30296043/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com