Browse for file dialog box - modification needed

H

Highlander

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/micr...cripting.vbscript&q="Dim+Q2,+sRet,+IE"&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
 
A

Adrienne Boswell

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/micr...cripting.vbscript&q="Dim+Q2,+sRet,+IE"&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!
Click to expand...

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>
 
W

Walter Zackery

In Windows XP at least, the dialog box default folder comes from the
registry key
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\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\CurrentVersion\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.

: 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/micr...cripting.vbscript&q="Dim+Q2,+sRet,+IE"&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
:
 
W

Walter Zackery

: In Windows XP at least, the dialog box default folder comes from the
: registry key
:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\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\CurrentVersion\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\CurrentVersion\Explorer\ComDlg32\OpenSaveMRU\a
, I should written
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32\OpenSaveMRU\*\a
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Browse file dialog box... 1
hange the text of browse button in file upload control 1
how to show "browse for folder" dialog in html/javascript? 17
Programmatically invoke the browse dialog of input type=file 3
change the text of browse button in file upload control 8
Open File Dialog Box 1
Issue with textbox script? 0
Change "File of Type" in the Browse File dialog box. 4

Members online

No members online now.
Total: 33 (members: 0, guests: 33)
Robots: 408

Forum statistics

Threads
473,994
Messages
2,570,223
Members
46,813
Latest member
lawrwtwinkle111

Latest Threads

Top