Jag får "(403) Forbidden" och det verkar ju inte som det går att kringgå?
Det funkar ju om man ha en default/index i den mappen men det har jag inte...
jag kan tilllägga att jag har tilgång till den andra severn med så man skulle ju kunna ladda upp en fil som säger om den finns eller inte men det ultimata vore ju att skippa det...
Function IFUrlExists(ByVal url As String) As Boolean
Dim objHTTP As Object
Dim strHTML As String
Dim arr As New ArrayList
Dim i As Integer
objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.Open("GET", url, False)
objHTTP.Send()
strHTML = CStr(objHTTP.responseText)
arr.Add("The page cannot be found")
IFUrlExists = True
For i = 0 To arr.Count - 1
If InStr(strHTML, arr(i)) <> 0 Then
IFUrlExists = False
End If
Next
End Function
260 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e