Xpounded: Open Dialogs

3 Browse for file VBS scripts.

(One might do the trick for you.)

All of the following scripts are used in the same manner. Select which one suits your purpose best.

Usgae Syntax:
sFileName = openDialog(sPath,sFilter)

A quick example follows:

Dim strFileName, strPath, strFilter strPath = "C:\Documents and Settings\All Users\Desktp\" strFilter = "Text Files|(*.txt)|All Files|(*.*)" sFileName = openDialog(sPath,sFilter)
sFileName will hold the file path of the selected file (if any).

The 2nd script (dialogOpenFile for WScript (IE)) will not use the sPath,sFilter arguments, but they are left in the call to keep a common interface for the different implementations.

If you have a Licensed CommonDialog Control on your system, use this:
Select All

If you have DO NOT have a Licensed CommonDialog Control, but you have InernetExplorer, try:
Select All

'openDialog for WScript (IE)

Dim vbsqdDialog1_Finished: vbsqdDialog1_Finished = False
	Dim vbsqdDialog1_UserInputData: vbsqdDialog1_UserInputData = False
	Dim vbsqdDialog1_returnValue: vbsqdDialog1_returnValue=""
	Dim vbsqdDialog1_ie
	Dim vbsqdDialog1_File1
	Function openDialog(sPath,sFilter)
		set vbsqdDialog1_ie = WScript.CreateObject("InternetExplorer.Application", "vbsqdDialog1_IE_")
		vbsqdDialog1_ie.width     = 300
		vbsqdDialog1_ie.height    = 150
		vbsqdDialog1_ie.menubar   = False
		vbsqdDialog1_ie.toolbar   = False
		vbsqdDialog1_ie.statusbar = False
		vbsqdDialog1_ie.navigate "about:blank"
		while vbsqdDialog1_ie.Busy:  wend
		vbsqdDialog1_ie.document.title=" Open Dialog Helper"
		Set vbsqdDialog1_File1 = vbsqdDialog1_ie.document.createElement("input")
		vbsqdDialog1_File1.type = "file"
		vbsqdDialog1_ie.document.body.AppendChild vbsqdDialog1_File1
		Set vbsqdDialog1_File1.onchange = GetRef("vbsqdDialog1_File_Clicked")
		Dim vbsqdDialog1_Para: Set vbsqdDialog1_Para = vbsqdDialog1_ie.document.createElement("p")
		vbsqdDialog1_ie.document.body.AppendChild vbsqdDialog1_Para
		Dim vbsqdDialog1_Info1: Set vbsqdDialog1_Info1 = vbsqdDialog1_ie.document.createTextNode("Close this window when Finished.")
		vbsqdDialog1_Para.AppendChild vbsqdDialog1_Info1
		vbsqdDialog1_ie.visible = true
		vbsqdDialog1_File1.click
		Do While Not vbsqdDialog1_Finished
	 		WScript.Sleep 50
		Loop
		OpenDialog = vbsqdDialog1_returnValue
	End Function
	Sub vbsqdDialog1_File_Clicked()
		vbsqdDialog1_Finished = True
		vbsqdDialog1_UserInputData = True
		vbsqdDialog1_returnValue = vbsqdDialog1_File1.value
		vbsqdDialog1_ie.Quit
	End Sub
	Sub vbsqdDialog1_IE_onQuit
		vbsqdDialog1_Finished = True
	End Sub

If you have XP (SP2) you can use this:
Select All

No HTML to View

- Copyright 2003 Xpounded -
All JS code developed by Xpounded is developed in RHSCoder.
All VBS code developed by Xpounded is developed in VBS QuickDev IDE, or RHSCoder.
Privacy Statement
Feedback