' From a UseNet posting by Randy Birch
' Dim sExeName As String Dim sPath As String Dim hWndDesk As Long sPath = "/e,/n,c:\program files" sExeName = "explorer.exe" hWndDesk = GetDesktopWindow() Call ShellExecute(hWndDesk, "Open", sExeName, sPath, 0&, SW_SHOWNORMAL) ' ' /e opens the window in Explore mode, ' /n forces a new window (instead of reusing if that's the user's preference). ' |