browsing for a file 2

• Jan 5, 2005

1
• #2

mrmovie

Technical User

Oct 2, 2002

3,094

GB

does this help?

Set ObjFSO = CreateObject("UserAccounts.CommonDialog")

ObjFSO.Filter = "VBScripts|*.vbs|Text Documents|*.txt|All Files|*.*"

ObjFSO.FilterIndex = 3

ObjFSO.InitialDir = "c:\myscripts"

InitFSO = ObjFSO.ShowOpen

If InitFSO = False Then
Wscript.Echo "Script Error: Please select a file!"
Wscript.Quit
Else
Wscript.Echo "You selected the file: " & ObjFSO.FileName
End If

 

Upvote 0 Downvote

• Jan 5, 2005

• #3

mrmovie

Technical User

Oct 2, 2002

3,094

GB

or

set oFO = CreateObject("SAFRCFileDlg.FileOpen")
' exposed in safrcdlg.dll
oFO.OpenFileOpenDlg
wscript.echo oFO.FileName

 

Upvote 0 Downvote

• Jan 5, 2005

• Thread starter
• #4

Programmer1974

Programmer

Feb 19, 2004

33

US

Thanks for the input, but I get the following error:

Error: ActiveX component can't create object: 'SAFRCFileDlg.FileOpen'

which probably means I need to download the appropriate dlls. I do now know if that will be acceptable to our LAN team, so if there are other alternatives, I would be appriciative to hear them!

Thanks

 

Upvote 0 Downvote

• Jan 6, 2005

• #5

mrmovie

Technical User

Oct 2, 2002

3,094

GB

hi 1974, im afraid thats the only details ive got.

have you tried my first post??? this works for me and doesnt require an additional dll...

 

Upvote 0 Downvote

• Jan 6, 2005

1
• #6

tsuji

Technical User

Jul 25, 2001

10,675

US

Hello Programmer1984,

[1] Safrcfiledlg.fileopen is with xp.

[2] For simulation using file selection using input, type="file" msie browser, you can dynamically make htm file for systematic use by calling a pre-fabricated block of code. That is the cheapest and most probably useable for windows platform. You can mimic or use one from jsware:

http://www.jsware.net/jsware/zips/claspak.zip

in particular, the fileopen.vbs.

[3] If it is more a developers/technical environment where you think most get vb package installed (a commercial visual studio or ms free vb5 editor) then you have all the necessary licence to use comdialog.ocx. With it installed, you can do something neat, like this.

Code:

set ocomdlg=createobject("mscomdlg.commondialog")
with ocomdlg
	.dialogtitle="select a file"
	.initdir="d:\test"
	.filter="All files (*.*)"
	.maxfilesize=10000	'filter filesize
	.showopen
end with
filespec=ocomdlg.filename
wscript.echo filespec

These two are the solution to get scripter by I would prefer.

regards - tsuji

 

Upvote 0 Downvote

• Jan 6, 2005

• Thread starter
• #7

Programmer1974

Programmer

Feb 19, 2004

33

US

Thanks all for the help, but I still havn't quite found what I'm looking for.

mrmovie, I do get an error with your first example, which is that activeX can't create the object. I'll keep trying though.

tsuji, the vbScript that you've provided from the download was cool, but it's basically the same thing I have above where it uses the HTML: <input type="file" name="myFile">. I did provide me with some ideas for other scripts though.

Also, none of us have VB Studios, or anything like that. We're mostly a mainframe COBOL shop, so my options are limited to straight VB/HTML code. I may venture in to JScript if all else fails.

Please let me know if there are more ideas out there! Thanks again!

 

Upvote 0 Downvote