Prüfen ob URL existiert
Henner
leider bringt mich meine bisherige Netzrecherche nicht weiter, auch die SuFu dieses Forums nicht. Ich möchte per VBA ermitteln, ob eine URL bzw. eine Datei im Internet erreichbar ist (Bsp.: http://www.testseite.com/test.txt).
Sofern die Datei text.txt existiert soll Makro A aufgerufen werden, wenn nicht dann Makro B.
Folgenden Code habe ich als Ansatz gefunden:
Sub tt()
Dim HttpReq As New MSXML2.XMLHTTP30
HttpReq.Open "get", "https://www.google.de", False
HttpReq.send
Nachricht = HttpReq.responseText
If InStr(Nachricht, "404 Message--Page Not Found") Then
vorhanden = False
Else
vorhanden = True
End If
End Sub
Henner