Dim oShell : Set oShell = CreateObject("Shell.Application")

oShell.Explore("C:\")