Codice: Seleziona tutto
Sub Esistenza_URL()
Dim http As Object, topics As Object, titleElem As Object, i As Integer
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "https://nuvola.madisoft.it/mad/ATIC80100B/inserisci", False
'http.Open "GET", "https://nuvola.madisoft.it/mad/BOIC824007/inserisci", False
http.send
If http.Status = "404" Then
MsgBox "Sito non esiste"
Else
MsgBox "Sito esistente"
End If
End Sub