t4 commander

Dim shell
Set shell = CreateObject("Shell.Application")

shell.Open "c:\"
shell.Open "d:\"


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

rem shell.TileHorizontally

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