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@xxxxxx

> throws an error
>
> cannot use parenthesis when calling a sub
>
> i'm calling a function, what can I do to fix this?

functions 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

>
>
> 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 wrote:

> throws an error
>
> cannot use parenthesis when calling a sub
>
> i'm calling a function, what can I do to fix this?
>
>

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"