How to create a dialogue box to enter the filepath

Question

Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder("C:\New folder _1")

I am using this code to read the folderpath. objFolder will store the path of the folder. In the same way, when i run the total code, i need to get a dialogue box where i should be able to enter the folderpath.

Are you also very new to search engines? https://duckduckgo.com/?q=vbscript+dialog+folder — Jean-François Corbett, Apr 20 '15 at 09:25
possible duplicate of [VBScript to open a dialog to select a filepath](http://stackoverflow.com/questions/21559775/vbscript-to-open-a-dialog-to-select-a-filepath) — Jean-François Corbett, Apr 20 '15 at 09:29
No, i dont want to browse a file, I need to store a filepath. — user3493758, Apr 20 '15 at 10:00
@Jean-FrançoisCorbett, thanks for reply.. It serves for selecting a file, I need to select a folder. pls suggest — user3493758, Apr 20 '15 at 10:25
I suggest you look at [the link in my first comment](https://duckduckgo.com/?q=vbscript+dialog+folder) and pick a solution from there. — Jean-François Corbett, Apr 20 '15 at 10:32

score 0 · Answer 1 · edited May 23 '17 at 11:43

This script to Browse4File : browse files in folder

and this code for Browse4Folder :

Option Explicit
Dim RootFolder
RootFolder = Browse4Folder
MsgBox RootFolder,VbInformation,RootFolder
'**********************************************************************************************
Function Browse4Folder()
    Dim objShell,objFolder,Message
    Message = "Please select a folder in order to scan into it and its subfolders"
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0,Message,1,"c:\Programs")
    If objFolder Is Nothing Then
        Wscript.Quit
    End If
    Browse4Folder = objFolder.self.path
end Function
'**********************************************************************************************

How to create a dialogue box to enter the filepath

1 Answers1