Checking size of file on web server...

[RobbieC]

Hi there, I trying to write a script to compare filesizes of local and remote (on a web server) files...

I can get the local filesize by using:

Dim localFileSize As Long
localFileSize = FileLen(ThisWorkbook.Path  & Filename)

MsgBox "local - " & localFileSize

I can check if my 'remote' file exists by using:

Dim doesFileExist As Boolean
doesFileExist = checkFile("http://www.mywebserver.com/files/" & Filename)
MsgBox "Remote file exists - " & doesFileExist

which returns a true or false. But for the life of me I can't return the filesize of the file on the remote server....

If you can point me in the right direction, I'd be extremely happy

Thanks

 

[shg]

Assume you tried FileLen and it didn't work?

How about using FileSystemObject?

Worst case, you could open the file and use the LOF function.

 

[RobbieC]

Yeah, FileLen only seems to work locally...

I've never used FileSystemObject - I've googled it, but can't find anything which will simply do the above.

I'm just trying to identify if the file is smaller online so that a backup can be determined - there are lots of files to compare, so downloading and LOF function on each will be a nightmare...

Is there a simple way to use FileSystemObject?

Thanks shg

 

[shg]

I don't know if FSO works with a web server, and can't conveniently test it.

Comparing file size is not too rigorous as a means of determining if one file is the same as another.

 

[RobbieC]

Can anyone help me with returning the file size of a file on an online server?

Dim doesFileExist As Boolean
doesFileExist = checkFile("http://www.mywebserver.com/files/" & Filename)

This code simply returns whether it exists or not. Surely there must be an equally simple way to return the file size?

This is driving me crazy :S

Thanks

 

[Kyle123]

You need to do an HTTP request, using the HEAD type and check the content-length property. Since you already have code to check if the file exists, I'll assume you know how to do that.

 

[RobbieC]

Thanks Kyle, I kinda guessed that I was close, but unfortunately I don't know to do an HTTP request, using the HEAD type and check the content-length property...

Can you help me with this bit?

 

[Kyle123]

What's your code for checking if the file exists?

 

[RobbieC]

I'm using:

Dim doesFileExist As Boolean
doesFileExist = checkFile("http://www.mywebserver.com/files/" & Filename)
MsgBox "Remote file exists - " & doesFileExist

This returns a True/False

 

[Kyle123]

checkFile isn't VBA. It's something bespoke that you (or someone on your behalf) has written. Please post the actual code of checkFile