File Open Dialog Example (HTA | XP Only....eh, probably Vista too)

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

File Open Dialog Example (HTA | XP Only....eh, probably Vista too)

Logged in as: Guest

arrSession:exec spGetSession 2,16,42615

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> File Open Dialog Example (HTA | XP Only....eh, probably Vista too)
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

File Open Dialog Example (HTA | XP Only....eh, probably... - 1/30/2007 1:14:52 AM

NssB

Posts: 30
Score: 0
Joined: 6/25/2006
Status: offline

Was just toying around with this for a project I was doing...

If anyone can suggest improvements, efficiencies et what not, please do say :)
I left out the HTA tag, works all the same. Enjoy

'Opens Common file dialog allowing file selection
Sub fileSelect
   set objShell = createobject("wscript.shell")
   strDir = objShell.CurrentDirectory
   Set ObjFSO = CreateObject("UserAccounts.CommonDialog")
   ObjFSO.Filter = "All Files|*.*"
   ObjFSO.InitialDir = strDir
   InitFSO = ObjFSO.ShowOpen
   If InitFSO = False Then
       exit sub
   Else
       strFileName.value = ObjFSO.FileName
       objOpenButton.disabled = "False"
       objResetButton.disabled = "False"
   End If
End Sub

'Simple shell run command
Sub OpenFile (file) 
   strFilePath = """" & file & """"
   Set objShell = CreateObject("WScript.Shell")
   objShell.run(strFilePath)
End Sub

'load routine
Sub window_onload
   window.resizeTo 400,200
   strFileName.disabled = "true"
   if strFileName.Value ="" then
       objOpenButton.disabled = "true"
       objResetButton.disabled = "true"
   end if
End Sub

'reset filename field
Sub ResetForm
   strFileName.Value = ""
   window.location.reload()
End Sub
</script>

</head>
<body>
<input type="text" name="strFileName" value="" style="width:300px">
<input type="button" name="button" value="..." onClick="fileSelect"><br>
<input type="button" name="objOpenButton" value="Open" onClick="OpenFile strFileName.value">
<input type="button" name="objResetButton" value="Clear" onClick="ResetForm"><br><br>
</body>
</html>

_____________________________

Its all about the code!

Post #: 1

RE: File Open Dialog Example (HTA | XP Only....eh, prob... - 2/22/2007 7:16:29 AM

edavis6678

Posts: 122
Score: 0
Joined: 1/12/2006
Status: offline

Doesn't work on Vista

I'm currently looking a way to do this on Vista w/o Powershell.

(in reply to NssB)

Post #: 2

RE: File Open Dialog Example (HTA | XP Only....eh, prob... - 2/22/2007 7:23:30 AM

edavis6678

Posts: 122
Score: 0
Joined: 1/12/2006
Status: offline

Will work on Vista if you do the following as describe in this post:

SAFRCFileDlg has been deprecated by Microsoft. The DLL was not actually
intended to be used for scripting.

It iwll however still work for you on Vista. You just need to copy the
DLL from an XP machine and register it with REGSVR32. Vista security
will make you copy it to a folder other than System32 and register it
that way.

--
markdmac

http://groups.google.com/group/microsoft.public.windows.server.scripting/browse_thread/thread/c76386961cf68359/89e053aff2f57d19?lnk=st&q=file+open+dialog+VBSCRIPT+VISTA&rnum=1&hl=en#89e053aff2f57d19

(in reply to edavis6678)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> File Open Dialog Example (HTA | XP Only....eh, probably Vista too)

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts