Possible with the link:
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
[COLOR=blue]Public Sub Example()
Dim objHttp As Object, strURL As String
strURL = "[URL unfurl="true"]https://www.tek-tips.com/images/header-logo.png"[/URL]
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
objHttp.Open "HEAD", strURL, False [COLOR=green]' just return the Headers, avoids downloading the file[/color]
objHttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHttp.send
MsgBox "File size of " & strURL & " is " & objHttp.getResponseHeader("content-length") & " bytes" & vbCrLf & "Last modified: " & objHttp.getResponseHeader("last-modified")
End Sub[/color]