Dim ws 'As Wscript.Shell
Set ws = CreateObject("Wscript.Shell")
Const WshHide = 0
Const WshNormalFocus = 1
Const WshMaximizedFocus = 3
Const WshNormalNoFocus = 4
Const WshMinimizedNoFocus = 7
Const WshSameStateAsMe = 10
'.SpecialFolders("Desktop")
'.SpecialFolders("SendTo")
'.SpecialFolders("StartMenu")