By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
440,496 Members | 1,489 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 440,496 IT Pros & Developers. It's quick & easy.

Browse for file dialog box - modification needed

P: n/a
Hello all. Consider the following HTA:

<HTML>
<HEAD>
<TITLE></TITLE></HEAD>
<BODY>

<SCRIPT LANGUAGE="VBScript">
Sub ButBrowse_onclick()
'-- show browse window and Get file path:
Dim sFile
sFile = Browse
If (sFile <"") Then
'--Do something with file....
MsgBox sFile '--For demo
End If
End Sub

Function Browse()
Dim Q2, sRet, IE
On Error Resume Next
Q2 = chr(34)
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop

IE.Document.Write "<HTML><BODY><INPUT ID=" & _
Q2 & "Fil" & Q2 & "Type=" & Q2 & "file" & Q2 & _
"></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
Browse = .value
End With
IE.Quit
Set IE = Nothing
End Function

</SCRIPT>

<INPUT NAME="ButBrowse" TYPE="button" TITLE="Browse to select file."
VALUE="Browse For File"></INPUT><BR>

</BODY></HTML>

I obtained the above script from a previous post:

http://groups.google.com/group/micro...C+IE%22&qt_g=1

By default the browse for file dialog box opens up to my workstation's
C: drive. I would like the ability to pre-select which drive and folder
the dialog box opens up to. If I run the script from a network drive
for example, I would like the dialog box to open up to that network
drive's current folder. Any suggestions would be greatly appreciated.
Thanks!

- Dave

Aug 30 '06 #1
Share this Question
Share on Google+
3 Replies


P: n/a

Highlander wote:
Hello all. Consider the following HTA:

<HTML>
<HEAD>
<TITLE></TITLE></HEAD>
<BODY>

<SCRIPT LANGUAGE="VBScript">
Sub ButBrowse_onclick()
'-- show browse window and Get file path:
Dim sFile
sFile = Browse
If (sFile <"") Then
'--Do something with file....
MsgBox sFile '--For demo
End If
End Sub

Function Browse()
Dim Q2, sRet, IE
On Error Resume Next
Q2 = chr(34)
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop

IE.Document.Write "<HTML><BODY><INPUT ID=" & _
Q2 & "Fil" & Q2 & "Type=" & Q2 & "file" & Q2 & _
"></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
Browse = .value
End With
IE.Quit
Set IE = Nothing
End Function

</SCRIPT>

<INPUT NAME="ButBrowse" TYPE="button" TITLE="Browse to select file."
VALUE="Browse For File"></INPUT><BR>

</BODY></HTML>

I obtained the above script from a previous post:

http://groups.google.com/group/micro...C+IE%22&qt_g=1

By default the browse for file dialog box opens up to my workstation's
C: drive. I would like the ability to pre-select which drive and folder
the dialog box opens up to. If I run the script from a network drive
for example, I would like the dialog box to open up to that network
drive's current folder. Any suggestions would be greatly appreciated.
Thanks!
I seriously doubt you can do this, but you might want to talk to a
javascript group to see if they might have a solution. Here's some
interesting reading detailing why the browser behaves the way it does:
<http://www.cs.tut.fi/~jkorpela/forms/file.html>
--
Adrienne Boswell at work
Administrator nextBlock.com
http://atlas.nextblock.com/files/
Please respond to the group so others can share

Aug 30 '06 #2

P: n/a
In Windows XP at least, the dialog box default folder comes from the
registry key
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\ComDlg32\OpenSaveMRU\*.
There's a value there named MRUList that contains a list of lowercase
letters. The first letter in the list is the one you're interested in. So if
the first letter is the letter a, then you want to look at the value
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\ComDlg32\OpenSaveMRU\a.
It contains a path to a file. The directory that the file is in should
correspond to the directory in the browse box. So modifying the value of
that key to the directory that you want should change the directory that the
file browser starts in.

"Highlander" <tr******@msn.comwrote in message
news:11*********************@74g2000cwt.googlegrou ps.com...
: Hello all. Consider the following HTA:
:
: <HTML>
: <HEAD>
: <TITLE></TITLE></HEAD>
: <BODY>
:
: <SCRIPT LANGUAGE="VBScript">
: Sub ButBrowse_onclick()
: '-- show browse window and Get file path:
: Dim sFile
: sFile = Browse
: If (sFile <"") Then
: '--Do something with file....
: MsgBox sFile '--For demo
: End If
: End Sub
:
: Function Browse()
: Dim Q2, sRet, IE
: On Error Resume Next
: Q2 = chr(34)
: Set IE = CreateObject("InternetExplorer.Application")
: IE.visible = False
: IE.Navigate("about:blank")
: Do Until IE.ReadyState = 4
: Loop
:
: IE.Document.Write "<HTML><BODY><INPUT ID=" & _
: Q2 & "Fil" & Q2 & "Type=" & Q2 & "file" & Q2 & _
: "></BODY></HTML>"
: With IE.Document.all.Fil
: .focus
: .click
: Browse = .value
: End With
: IE.Quit
: Set IE = Nothing
: End Function
:
: </SCRIPT>
:
: <INPUT NAME="ButBrowse" TYPE="button" TITLE="Browse to select file."
: VALUE="Browse For File"></INPUT><BR>
:
: </BODY></HTML>
:
: I obtained the above script from a previous post:
:
:
http://groups.google.com/group/micro...C+IE%22&qt_g=1
:
: By default the browse for file dialog box opens up to my workstation's
: C: drive. I would like the ability to pre-select which drive and folder
: the dialog box opens up to. If I run the script from a network drive
: for example, I would like the dialog box to open up to that network
: drive's current folder. Any suggestions would be greatly appreciated.
: Thanks!
:
: - Dave
:
Aug 30 '06 #3

P: n/a

"Walter Zackery" <pl***************@group.comwrote in message
news:uo**************@TK2MSFTNGP02.phx.gbl...
: In Windows XP at least, the dialog box default folder comes from the
: registry key
:
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\ComDlg32\OpenSaveMRU\*.
: There's a value there named MRUList that contains a list of lowercase
: letters. The first letter in the list is the one you're interested in. So
if
: the first letter is the letter a, then you want to look at the value
:
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\ComDlg32\OpenSaveMRU\a.
: It contains a path to a file. The directory that the file is in should
: correspond to the directory in the browse box. So modifying the value of
: that key to the directory that you want should change the directory that
the
: file browser starts in.
:
The above contains a typo. Instead of
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\ComDlg32\OpenSaveMRU\a
, I should written
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\ComDlg32\OpenSaveMRU\*\a
Aug 30 '06 #4

This discussion thread is closed

Replies have been disabled for this discussion.