I copied the code below and saved it as a .vbs file. Can anyone tell me why
I would be getting an 800A0005 error while another XP Pro. and a 2000
machine can run it just fine? The error is "An Invalid Procedure Call or
Argument" and it's on line 40, char. 1 which is this line: "set fh1 =
oFileSys.Create TextFile(tmp)"
Thanks in advance to anyone who can help.
GJ
'FunDialogBox.v bs
'v1.2 March 2001
'Jeffery Hicks
'j*****@quilogy .com http://www.quilogy.com
'Functions to display MS Common Dialog Box. You can use these functions to
provide
'more options and flexibility for opening and saving files.
'
*************** *************** *************** *************** *************** *
*****
' * THIS PROGRAM IS OFFERED AS IS AND MAY BE FREELY MODIFIED OR ALTERED AS *
' * NECESSARY TO MEET YOUR NEEDS. THE AUTHOR MAKES NO GUARANTEES OR
WARRANTIES, *
' * EXPRESS, IMPLIED OR OF ANY OTHER KIND TO THIS CODE OR ANY USER
MODIFICATIONS. *
' * DO NOT USE IN A PRODUCTION ENVIRONMENT UNTIL YOU HAVE TESTED IN A
SECURED LAB *
' * ENVIRONMENT. USE AT YOUR OWN RISK. *
'
*************** *************** *************** *************** *************** *
*****
'On Error Resume Next
'The first part of this script is simply demo commands of the functions
which do the real
'work in using the Common Dialog Box.
'test of Open File function
dim WshShell
Set WshShell = WScript.CreateO bject("WScript. Shell")
strFileOpen=Ope nDlg(UCASE(wscr ipt.Scriptname) &" - Open File","My
Filter","*.vbs" )
'If StrFileOpen="" then
'wscript.echo "Nothing selected or cancelled"
'wscript.quit 'quit if nothing was selected or user cancelled
'else
'WshShell.Run ("notepad.ex e " & strFileOpen)
'End If
'test of Save File function
dim oFileSys,fh1
set oFileSys=Create Object("Scripti ng.FileSystemOb ject")
tmp=saveDlg(UCA SE(wscript.Scri ptname) &" - Save File","Text
File","*.txt"," defaultname")
set fh1 = oFileSys.Create TextFile(tmp)
fh1.Write "This is a test file" & VBCRLF & Now
fh1.Close
set oFileSys=Nothin g
set fh1=Nothing
set WshShell=Nothin g
wscript.quit
'////////////////////////////
'/ Open Common Dialog /
'////////////////////////////
Function OpenDlg(strTitl e,strDesc,strEx t)
'strTitle is value for Dialog Box title
'strDesc is the name of user specified filter such as VBScript Files
'strExt is a user specified extension for secondary filter in *.ext format
Dim objDlg
On Error Resume Next
set objDlg = wscript.CreateO bject("MSComDlg .CommonDialog")
objDlg.Filter = "All Files (*.*)|*.*|" & strDesc & " (" & strExt & ")|" &
strExt
objDlg.DialogTi tle=strTitle
objDlg.FilterIn dex = 2
objDlg.MaxFileS ize = 260
objDlg.CancelEr ror = true
objDlg.ShowOpen
OpenDlg = objDlg.FileName
Set objDlg=Nothing
End Function
'////////////////////////////
'/ Save Common Dialog /
'////////////////////////////
Function SaveDlg(strTitl e,strDesc,strEx t,strFile)
'strTitle is value for Dialog Box title
'strDesc is name of user specified filter such as VBScript Files
'strExt is a user specified extension for secondary filter in *.ext format
'strFile is the name of the file to be saved
Dim objDlg
On Error Resume Next
set objDlg = wscript.CreateO bject("MSComDlg .CommonDialog")
objDlg.Filter = "All Files (*.*)|*.*|" & strDesc & " (" & strExt & ")|" &
strExt
objDlg.DialogTi tle=strTitle
objDlg.FilterIn dex = 2
objDlg.MaxFileS ize = 260
objDlg.CancelEr ror = true
objDlg.Filename =strFile
objDlg.ShowSave
SaveDlg=objDlg. Filename
Set objDlg=Nothing
End Function
'EOF
