How to close Selected folder

Hello experts
I got this code from egl1044's post from EE..But this code is closing all open folder.
I want to close selected folder.

i am looking code for closing folder which is selected from my list box.

Please help
Thanks

''''''''''''''''''''''''''''
egl1044:

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Const WM_CLOSE = &H10

Private Sub Command1_Click()

Dim I As Integer
For I = 1 To 100 ' I doubt you will have more than 100 folders open so this will work
Dim cabinetwclass As Long
cabinetwclass = FindWindow("cabinetwclass", vbNullString)
Call PostMessage(cabinetwclass, WM_CLOSE, 0&, 0&)
Sleep 100
DoEvents
Next I

End Sub