Determining the size of a file via a URL

[Jozef]

Hello,

I'd like to determine the size of a file via a URL. I'm not even sure how
to do this on the local machine, let alone a URL. Any help would be greatly
appreciated.

Thanks!

[john]

Not sure about via a URL but in VBA you can retrieve size with the
FileLen function. E.g.

SizeInBytes = FileLen(Pathname)

[rkc]

Jozef wrote:

I'd like to determine the size of a file via a URL. I'm not even sure how
to do this on the local machine, let alone a URL. Any help would be greatly
appreciated.

If you mean you want to know the size of the source file of a web page
you can send request for the http headers only via a Microsoft.XMLHTTP
object and check the value for Content-Length.

In a nutshell:

Dim msXML As Object
Set msXML = CreateObject("Microsoft.XMLHTTP")
msXML.Open "HEAD", url, False
msXML.send
Debug.Print msXML.getResponseHeader("Content-Length")
Set msXML = Nothing

[Jozef]

Excellent! Thanks for your help, that works very well!
"rkc" <rk*@rochester.yabba.dabba.do.rr.bomb> wrote in message
news:VM***************@twister.nyroc.rr.com...

Jozef wrote:

I'd like to determine the size of a file via a URL. I'm not even sure
how
to do this on the local machine, let alone a URL. Any help would be
greatly
appreciated.

If you mean you want to know the size of the source file of a web page
you can send request for the http headers only via a Microsoft.XMLHTTP
object and check the value for Content-Length.

In a nutshell:

Dim msXML As Object
Set msXML = CreateObject("Microsoft.XMLHTTP")
msXML.Open "HEAD", url, False
msXML.send
Debug.Print msXML.getResponseHeader("Content-Length")
Set msXML = Nothing

[karl]

I can't get the following code to run. I have MSXML 4.0 installed but I
can't find a Type library to Reference so when I key in something like
msXML. nothing pops up as a valid choice to enter after the dot.

Do I need something other than MSXML 4.0 and what Name should I look
for when setting the Reference to a Type library?

I'm using A2003

Dim msXML As Object
Set msXML = CreateObject("Microsoft.XMLHTTP")
msXML.Open "HEAD", url, False
msXML.send
Debug.Print msXML.getResponseHeader("Content-Length")
Set msXML = Nothing