Opening Windows Explorer with all folders compressed

I have the following Macro that works, but . . .

Please Login or Register  to view this content.

I want the Explorer opened with all folders compressed

I have tried using the 1 and I have tried using vbNormalFocus

They both open Explorer but folders are not compressed.
They show such as:

Desktop . . . Need to scroll up to see
My Documents . . . Need to scroll up to see
My Computer . . . Need to scroll up to see
3 1/2 Floppy . . . Need to scroll up to see
Local Disk (C is highlited and not compressed

I want to see something like:

Desktop
My Documents
My Computer
3 1/2 Floppy (A)
Local Disk (C
20GB (D
Removable Disk (E
etc
etc

When I Previewed my post, I see smiles on the screen . . Any ideas?

Bump No Response

Bump No Response