Open a folder with code

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Public Sub ExploreFolder(FolderName As String)
    On Error Resume Next
    Dim X As Long
    X = ShellExecute(0&, "Explore", FolderName, 0&, 0&, SW_SHOWMAXIMIZED)
End Sub


Usage:

Call ExploreFolder("c:\windows")


Good Luck
-Brian

forgot to include

CONST SW_SHOWMAXIMIZED = 3

Michael D

your code works fine just wondering why i need the space after explorer before the last quotation

Because this space divides command and parameter:
Actually should be "C:\WINDOWS\explorer.exe" & Space(1) & FolderName

Because otherwise your command would be

Shell "explorerC:\WINDOWS\"  , vbNormalFocus

explorer is the program, X, or "C:\Windows" is a command line argument

thank you