XP Style FileOpen dialog with multiple selection. 2

[Mike Gagnon]

For those of you using windows XP (and Windows Scripting 5.6), here is a nice and useful FileOpen dialog that exposes the usrmgr.cpl from the Control Panel.

oDlg= Createobject("userAccounts.commonDialog")
oDlg.flags= "&h1a04"
oDlg.Filter= "All Files|*.*|"+ "Text and Batch Files|*.txt;*.bat"
oDlg.filterIndex= 2
oDlg.initialDir="C:\"
qSln= oDlg.showOpen
If qSln
	Messagebox(oDlg.fileName)
Else
	Messagebox("Dialog cancelled.")
Endif

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[jimoo]

Great work Mike - This is especially beneficial to those that run the same import (or other routine) over and over and select a different file each time.

*4U

Note: the data is brought back in one string and needs to be parsed. For those not familiar with how to do that check out: faq184-4326 Parsing Delimited Text



Jim Osieczonek
Delta Business Group, LLC

http://www.deltabg.com

 

[Mike Gagnon]

jimoo

Thank you for the star. Yes it would be very useful for that purpose.




Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[darrellblackhawk]

Very nice Mike.

You must sit in front of your computer a lot

Darrell

 

[craigsboyd]

Mike,

Excellent job! Star for you.

Slighthaze = NULL
_{craig1442@mchsi.com}

"Whom computers would destroy, they must first drive mad." - Anon​

 

[Mike Gagnon]

darrellblackhawk

You must sit in front of your computer a lot

Besides, I'm not a football fan...


Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[Mike Gagnon]

And probably the equivalent function at the opposite end would be:

oDlg= createObject("safrcFileDlg.fileSave")
oDlg.fileName= "C:\*.*"
oDlg.fileType= "Any File Type"

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.