Private Sub wWeb_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim TempFolder
Dim collImages As IHTMLElementCollection
Dim img As IHTMLImgElement
Dim strFileName As String
Dim strExtension As String
Dim lResult As Long
Dim i As Long
Dim nAnomalies As Long
TempFolder = App.Path & "\Temp Files\"
Set collImages = pDisp.Document.getElementsByTagName("IMG")
For i = 0 To collImages.Length - 1
Set img = collImages.Item(i)
strFileName = Right(img.src, Len(img.src) - InStrRev(img.src, "/"))
strExtension = LCase(Right(strFileName, Len(strFileName) - InStrRev(strFileName, ".")))
If (strExtension = "gif" Or strExtension = "jpg" Or strExtension = "jpeg" Or strExtension = "png") Then
lResult = URLDownloadToFile(0, img.src, TempFolder & strFileName, 0, 0)
Else
If (InStr(1, img.mimeType, "GIF", vbTextCompare)) Then
lResult = URLDownloadToFile(0, img.src, TempFolder & "anomaly" & nAnomalies & ".gif", 0, 0)
ElseIf (InStr(1, img.mimeType, "JPG", vbTextCompare)) Then
lResult = URLDownloadToFile(0, img.src, TempFolder & "anomaly" & nAnomalies & ".jpg", 0, 0)
End If
End If
Set img = Nothing
Next i
Set collImages = Nothing
End Sub