Skip to content

Instantly share code, notes, and snippets.

@simply-coded

simply-coded/BrowseForFolder.vbs

Created August 6, 2017 01:55
Show Gist options
  • Save simply-coded/d5d28643b60aaa1d4a1405200a854904 to your computer and use it in GitHub Desktop.
Save simply-coded/d5d28643b60aaa1d4a1405200a854904 to your computer and use it in GitHub Desktop.
Download ZIP
Browse for folder dialog box in VBScript.
Raw
BrowseForFolder.vbs
Function BrowseForFolder()
'@description: Browse for folder dialog.
'@author: Jeremy England (SimplyCoded)
Dim oFolder
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0,"Select a Folder",0,0)
If (oFolder Is Nothing) Then
BrowseForFolder = Empty
Else
BrowseForFolder = oFolder.Self.Path
End If
End Function
Raw
usage.vbs
folderPath = BrowseForFolder()
If IsEmpty(folderPath) Then
MsgBox "Operation canceled."
Else
MsgBox folderPath
End If
'=========================================================================================
Function BrowseForFolder()
'@description: Browse for folder dialog.
'@author: Jeremy England (SimplyCoded)
Dim oFolder
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0,"Select a Folder",0,0)
If (oFolder Is Nothing) Then
BrowseForFolder = Empty
Else
BrowseForFolder = oFolder.Self.Path
End If
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment