Beogradsko programiranje: Tiling Windows Explorer form vbscript

Friday, July 16, 2021

Dim shell

Set shell = CreateObject("Shell.Application")

shell.Open "c:\Windows"

shell.Open "c:\Program Files"

Dim objShell

Dim strPath

Dim strPath2

Set objShell = CreateObject("Wscript.Shell")

strPath = objShell.SpecialFolders("Desktop")

strPath2 = objShell.SpecialFolders("MyDocuments")

rem wscript.echo strPath

shell.Open strPath

shell.Open strPath2

Wscript.Sleep 1000

shell.TileHorizontally

rem shell.TileVertically

rem shell.ToggleDesktop

rem shell.WindowSwitcher

rem http://ss64.com/vb/special.html

rem AllUsersDesktop

rem AllUsersStartMenu

rem AllUsersPrograms

rem AllUsersStartup

rem Desktop

rem Favorites

rem Fonts

rem MyDocuments

rem NetHood

rem PrintHood

rem Programs

rem Recent

rem SendTo

rem StartMenu

rem Startup

rem Templates

++☼

Beogradsko programiranje