Skip to content

Instantly share code, notes, and snippets.

@angusdev
Last active October 15, 2022 20:59
Show Gist options
  • Save angusdev/62134c3c2cb9d01009924e400becab91 to your computer and use it in GitHub Desktop.
Save angusdev/62134c3c2cb9d01009924e400becab91 to your computer and use it in GitHub Desktop.
Function ShellExecuteVB()
Dim objShell
Set objShell = CreateObject("Shell.Application")
Call objShell.ShellExecute("explorer", "c:\your\path\", "c:\your\path\", "", 1)
End Function
ShellExecuteVB()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment