Public objXMLHttp As MSXML2.XMLHTTP
Public gLoc As String
Public Sub downloadPic(strSource As String, strLoc As String)
On Error Resume Next
Dim objStoreFile As clsStoreFile
gLoc = strLoc
Set objXMLHttp = New MSXML2.XMLHTTP
objXMLHttp.Open "get", strSource, True
Set objStoreFile = New clsStoreFile
objXMLHttp.onreadystatechange = objStoreFile
objXMLHttp.send
'******************************************************************************
' Adjust "3000"(about 2 seconds delay) to the number that fits your environment
'******************************************************************************
For i = 1 To 3000
DoEvents
Next
objStoreFile.exeStoreFile
Set objXMLHttp = Nothing
Set objStoreFile = Nothing
End Sub
'******************************************************************************
' Object Class contents - clsStoreFile
'******************************************************************************
Dim objStream As ADODB.Stream
Dim fso As Scripting.FileSystemObject
Public curReadyState As Long