How to make a simple file dialog on Windows 7?

Question

I am trying to create a simple file select dialog in VBScript. I have searched around for and answer but not come up with a simple solution. I don't need Filter options or the like.

In extended script I would use myFile = File.openDialog().

Can someone give me the VBScript equivalent for Windows 7?

Try Set oDialog = CreateObject("UserAccounts.CommonDialog"). Preset oDialog.Filter and oDialog.InitialDir properties and invoke intResult = oDialog.ShowOpen. Then, if intResult is non-zero, check oDialog.FileName property — JosefZ
– JosefZ, Commented Nov 24, 2014 at 1:09
CreateObject("UserAccounts.CommonDialog") only works xp? So it looks like. — Trevor
– Trevor, Commented Nov 24, 2014 at 1:17

Trevor · Accepted Answer · 2014-11-24 01:23:16Z

3

I found the below snippet using shell script over here https://gist.github.com/mlhaufe/1034241

Function BrowseForFile()
Dim shell : Set shell = CreateObject("Shell.Application")
Dim file : Set file = shell.BrowseForFolder(0, "Choose a file:", &H4000)
BrowseForFile = file.self.Path
End Function 
MsgBox BrowseForFile

It seems to work well. Interested if there's a simple "pure vbs" version.

answered Nov 24, 2014 at 1:23

Trevor

5652 gold badges6 silver badges19 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How to make a simple file dialog on Windows 7?

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related