Gặp sự cố khi download file từ internet

[buivankiet]

1/Mình có tìm trên mạng hàm savewebfile (kèm theo bên dưới ) cài vào file ABC.xls để download các file đã được đưa lên mạng , mình sử dụng thấy có hiện tượng là khi file nguốn ở trên mạng đã được update file mới, mà nó cứ down về file cũ , mình không biết file cũ ở đâu ra, mở trực tiếp trên web thì thấy file đã được update, xóa file được down về rồi nó cũng down về file cũ, đóng file abc.xls và mở lại file abc.xls thì nó mới chịu down về file mới update. NHờ các bạn giúp dùm để làm sao khi download luôn được file mới nhất.
2/ Xin hỏi thêm là làm sao nhận biết file ở trên mạng đã được update để down file mới về ( trong mạng LAN thì tôi dùng hàm filedatetime để biết ngày modify, còn ở trên internet thì nhờ các Bạn chỉ giúp )
Cám ơn
Function SaveWebFile(ByVal vWebFile As String, ByVal vLocalFile As String) As Boolean
'On Error Resume Next
Dim oXMLHTTP As Object, i As Long, vFF As Long, oResp() As Byte
'Set oXMLHTTP = Nothing
'You can also set a ref. to Microsoft XML, and Dim oXMLHTTP as MSXML2.XMLHTTP
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")

oXMLHTTP.Open "GET", vWebFile, False 'Open socket to get the website
oXMLHTTP.Send 'send request

'Wait for request to finish
Do While oXMLHTTP.ReadyState <> 4
DoEvents
Loop

oResp = oXMLHTTP.responseBody 'Returns the results as a byte array

'Create local file and save results to it
vFF = FreeFile
If Dir(vLocalFile) <> "" Then Kill vLocalFile
Open vLocalFile For Binary As #vFF
Put #vFF, , oResp
Close #vFF

'Clear memory
Set oXMLHTTP = Nothing
End Function