Table of Content

Sometime need to open a folder File Explorer, this short script will help.

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub OpenFolder(Folder)
Set objShell = CreateObject("Wscript.Shell")
 
strPath = Folder
 
strPath = "explorer.exe /e," & strPath
objShell.Run strPath, vbNormalFocus
End Sub
 
Private Sub openfoldertest()
OpenFolder "c:\test\"
End Sub