Option Explicit
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByRef lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Const SC_CLOSE = &HF060&
Private Const WM_SYSCOMMAND = &H112
Private Const EXPLORER_CLASSNAME As String = "CabinetWClass"
[COLOR=seagreen]'Private Const EXPLORER_CLASSNAME As String = "ExploreWClass"[/COLOR]
Sub Test()
Dim lExplhwnd As Long
Dim lTimer As Long
Shell "explorer.exe C:\", vbMaximizedFocus
[COLOR=seagreen]'======================================[/COLOR]
[COLOR=seagreen]'this loop is just for illustration pupose.[/COLOR]
[COLOR=seagreen]'remove this temporary loop and replace it[/COLOR]
[COLOR=seagreen]'with your Macro stuff here....[/COLOR]
lTimer = Timer
Do
DoEvents
Loop Until Timer - lTimer >= 3 [COLOR=seagreen]'wait 3 Secs[/COLOR].
[COLOR=seagreen]'======================================[/COLOR]
lExplhwnd = FindWindow(EXPLORER_CLASSNAME, vbNullString)
If lExplhwnd Then
SendMessage lExplhwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&
End If
End Sub
