Manipulate 3 Windows Explorer windows with same base path.

[ScottF]

Gintaras, I am having timing issues with the code (Error (RT) in <open ":4578: /1470">M3__Wins:  window not found (the handle is 0). --> Maybe there is a more efficient way to do it?
Trying to open and position 7 explorer folders quickly, and another function "CloseWindows2" to close
quickly only the 7 folders that were opened by function "M03 Wins"

Function M3__Wins

Code:

Copy      Help

/ M3__Wins \
;; ::::::::::::::::::::::  
;; 2021-09-12  Sunday  -  17.34.16
;;;;© Scott_F  †††     -->  Version 1.0.0
;;;
spe 500

str s1 s2 s3 s4 s5 s6 s7
int w

s1="C:\M03 Wins\dir5" ;; -1601 13 501 464
s2="C:\M03 Wins\dir4" ;; -1602 477 501 426
s3="C:\M03 Wins\dir3" ;; -1091 31 501 419
s4="C:\M03 Wins\dir2" ;; -1089 454 501 419
s5="C:\M03 Wins\dir1" ;; -575 30 501 419
s6="C:\M03 Wins" ;; -573 460 501 420
s7="C:\Temp" ;; 167 6 980 476


;;; win1
;;; open Folder.
run s1 "" "" "" 0x100|0x200|0x800|0x10000; 0.23
w=wait(10 WV win(s1 "CabinetWClass")) ;;
w=FolderWindowFind(s1)
outw w
act w; 0.23            ;; activate it
mov+ -1601 13 501 464 w    ;; mov window to location and size.


;;; win2
;;; open Folder.
run s2 "" "" "" 0x100|0x200|0x800|0x10000; 2.23
w=wait(10 WV win(s2 "CabinetWClass")) ;;
w=FolderWindowFind(s2)
outw w
act w; 0.23            ;; activate it
mov+ -1602 477 501 426 w    ;; mov window to location and size.


;;; win3
;;; open Folder.
run s3 "" "" "" 0x100|0x200|0x800|0x10000; 0.23
w=wait(10 WV win(s3 "CabinetWClass")) ;;
w=FolderWindowFind(s3)
outw w
act w; 0.23            ;; activate it
mov+ -1091 31 501 419 w    ;; mov window to location and size.


;;; win4
;;; open Folder.
run s4 "" "" "" 0x100|0x200|0x800|0x10000; 0.23
w=wait(10 WV win(s4 "CabinetWClass")) ;;
w=FolderWindowFind(s4)
outw w
act w; 0.23            ;; activate it
mov+ -1089 454 501 419 w    ;; mov window to location and size.


;;; win5
;;; open Folder.
run s5 "" "" "" 0x100|0x200|0x800|0x10000; 0.23
w=wait(10 WV win(s5 "CabinetWClass")) ;;
w=FolderWindowFind(s5)
outw w
act w; 0.23            ;; activate it
mov+ -575 30 501 419 w    ;; mov window to location and size.


;;; win6
;;; open Folder.
run s6 "" "" "" 0x100|0x200|0x800|0x10000; 0.23
w=wait(10 WV win(s6 "CabinetWClass")) ;;
w=FolderWindowFind(s6)
outw w
act w; 0.23            ;; activate it
mov+ -573 460 501 420 w    ;; mov window to location and size.


;;; win7
;;; open Folder.
run s7 "" "" "" 0x100|0x200|0x800|0x10000; 0.23
w=wait(10 WV win(s7 "CabinetWClass")); 0.23 
w=FolderWindowFind(s7)
outw w
act w; 0.23            ;; activate it
mov+ 167 6 980 476 w    ;; mov window to location and size.

Function CloseWindows2

Code:

Copy      Help

;CloseWindows2


str s1 s2 s3 s4 s5 s6 s7 sw2
int w
;out

s1="C:\M03 Wins\dir5" ;; -1601 13 501 464
s2="C:\M03 Wins\dir4" ;; -1602 477 501 426
s3="C:\M03 Wins\dir3" ;; -1091 31 501 419
s4="C:\M03 Wins\dir2" ;; -1089 454 501 419
s5="C:\M03 Wins\dir1" ;; -575 30 501 419
s6="C:\M03 Wins" ;; -573 460 501 420
s7="C:\Temp" ;; 167 6 980 476



;;; close
w=win(s1 "CabinetWClass")
if w
,act w
,clo w
,0.05

w=win(s2 "CabinetWClass")
if w
,act w
,clo w
,0.05

w=win(s3 "CabinetWClass")
if w
,act w
,clo w
,0.05

w=win(s4 "CabinetWClass")
if w
,act w
,clo w
,0.05

w=win(s5 "CabinetWClass")
if w
,act w
,clo w
,0.05

w=win(s6 "CabinetWClass")
if w
,act w
,clo w
,0.05

w=win(s7 "CabinetWClass")
if w
,act w
,clo w