Licentie

[Neuz]

Hey allemaal,

Ik ben bezig om een document te maken waarin ik gecontroleerd wil hebben of de licentie (document)
bestaat. Ik wil dit controleren aan de hand van een website.

Ik heb dit met de volgende code geprobeerd maar kreeg een fout melding kunnen jullie me helpen dit
op te lossen.

Private Sub Workbook_Open()
    If Dir("http://www.website.nl/licentie.html") = "" Then
        MsgBox "Het bestand bestaat niet!"
    Else
        MsgBox "Het bestand bestaat!"
    End If
End Sub

'Url zelf aan te passen. Nu ivm de privacy op iets algemeens gezet.

Andere oplossingen zijn natuurlijk ook altijd welkom.

Alvast bedankt. voor de moeite

 

[wampier]

Dir werkt alleen met lokale files. Voor internet zul je meestal andere objecten moeten toevoegen / gebruiken