Quad More

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

++
++