Vista - cannot use parenthesis when calling sub

throws an error

cannot use parenthesis when calling a sub

i'm calling a function, what can I do to fix this?


Code:
file1 = "http://www.devguru.com/technologies/wsh/17413.asp"

downloadfile(file1, "c:\file.html")



function downloadfile(strFileURL, strHDLocation)

'http://blog.netnerds.net/2007/01/vbscript-download-and-save-a-binary-
file/

' Fetch the file
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary

objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0 'Set the stream position to the
start

Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile
strHDLocation
Set objFSO = Nothing

objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing

end function

"techstress" <foscsamuels@xxxxxx> wrote in message
news:2d55042a-594b-4980-8d2f-c5386fd9aa20@xxxxxxfunctions are (almost exactly) the same as subs, and can be "invoked" in
much the same way:

Either use "call":

call downloadfile(file1, "c:\file.html")

don't use parentheses:

downloadfile file1, "c:\file.html"

or assign the return value to a variable:

temp = downloadfile(file1, "c:\file.html") ' this one is for
functions only

But I am wondering why you coded this as a function when it returns no
result.

/Al

techstress wrote:Just to add to Al's reply:
http://blogs.msdn.com/ericlippert/ar.../15/52996.aspx

--
Microsoft MVP - ASP/ASP.NET - 2004-2007
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"