Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Controleren of er op een URL een bepaald bestand staat.  (gelezen 1585 keer)

0 leden en 1 gast bekijken dit topic.

Offline cladon

  • Volledig lid
  • **
  • Berichten: 246
  • Geslacht: Man
Controleren of er op een URL een bepaald bestand staat.
« Gepost op: 18 augustus 2006, 20:44:40 »
Via de functie URLDownloadToFile ben ik in staat om vanuit excel via vba een bestand te downloaden wat staat op de opgegeven URL.

Weet iemand of er ook een functie bestaat om te controleren of er op de opgegeven URL een bestand staat met een opgegeven bestandsnaam.
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:Controleren of er op een URL een bepaald bestand staat.
« Reactie #1 Gepost op: 19 augustus 2006, 10:43:38 »
Hello

misschien met de returnvalue zoals Colo hier neerschreef.

Verder zou ik het niet weten. Googlen...

Wigi
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline cladon

  • Volledig lid
  • **
  • Berichten: 246
  • Geslacht: Man
Re:Controleren of er op een URL een bepaald bestand staat.
« Reactie #2 Gepost op: 19 augustus 2006, 16:26:26 »
Ik heb dezelfde vraag ook eens gepost op de nieuwsgroep van excel waar ik het volgende werkend voorbeeld heb terug gekregen

Public Function URLExists(ByVal strAddress As String) As Boolean
On Error Resume Next
    Dim httpSession
    Dim strResult As String
    Set httpSession = CreateObject("Microsoft.XMLHTTP")
    httpSession.Open "GET", strAddress, False
    httpSession.send
    strResult = httpSession.responseText
    httpSession.Close
    Set httpSession = Nothing
    If Len(strResult) > 1 Then
        URLExists = True
    Else
        URLExists = False
    End If
End Function

Waarvoor dank aan aan de bijdrage van de gebruiker "Moon"
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

 


www.combell.com