Chiusura cartelle

[Marco75]

Ciao,

Ho creato un' applicazione VB6 con 2 pulsanti

uno mi apre una cartella :

WinExec "Explorer.exe J:\Folitec", 10

l' altro deve chiuderla :

Dim winhwnd As Long
Dim retval As Long

winhwnd = 0

While winhwnd = 0
winhwnd = FindWindow(vbNullString, "J:\Folitec")
DoEvents
Wend
retval = PostMessage(winhwnd, WM_CLOSE, 0&, 0&)

la cartella J:\Folitec contiene altre sottocartelle e qui viene il
problema.
vorrei chiudere tutto nel senso che anche se mi trovo in una
sottocartella
deve chiudere lo stesso.
Se clicco su chiudi poi salgo di livello finio a J:\Folitec questa mi
si chiude
vorrei solo evitare di dover tornare su di livello (o con il pulsante
"Indietro")
tutte le volte.
Come posso modificare il codice qui sopra?
grazie
Marco