Existiert Datei auf Webserver? + VBA
17.01.2006 10:12:23
Andreas
ich habe folgende Funktion im Internet gefunden, um in VBA zu überprüfen, ob eine URL existiert.
Option Explicit
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare
Function CheckURL Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Function URLExist(chkUrl As String) As Boolean
If CheckURL(chkUrl, FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
URLExist = False
Else
URLExist = True
End If
End Function
Jetzt würde ich gern wissen, wie ich diese Funktion erweitern muss, damit ich überprüfen kann, ob eine bestimmte Datei auf einem Webserver liegt/existiert?
Danke im Voraus.
Mfg. Andreas