|
|
Posted by Adrienne Boswell on 08/30/06 17:17
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/microsoft.public.scripting.vbscript/search?group=microsoft.public.scripting.vbscript&q=%22Dim+Q2%2C+sRet%2C+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
Navigation:
[Reply to this message]
|