Je dois tester la validité des liens URL, , que j'ai dans des tableaux, en
Visual Basic pour Access. J'ai des ASP, qui me transforment ces URL en liens
sur mon site. De façon régulière (pendant la nuit), je voudrais tester tous
ces URL pour savoir s'il sont encore bons et je supprimerai des mauvaises
adresses pour ne pas créer des mauvaises liens dans mes ASP.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Logipro
Bonjour Schnutz,
Il faut regarder des APIS pour effectuer ce genre de vérification, donc voici du code qui te permettera de faire la vérification : Exemple :
If DownloadFile("http://yahoo.com","C:TEMPO.TXT") = False then msgbox "Erreur URL !" else msgbox "Url OK !" endif
dans un module : Public Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" _ (ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long
Private Const ERROR_SUCCESS As Long = 0
Public Function DownloadFile(ssourceUrl As String, _ sLocalFile As String) As Boolean
Dim lngRetVal As Long
'if the API returns ERROR_SUCCESS (0), 'return True from the function DownloadFile = URLDownloadToFile(0&, _ ssourceUrl, _ sLocalFile, _ 0&, _ 0&) = ERROR_SUCCESS
End Function
Salutation
Robert Simard Logipro
"wysc" a écrit dans le message de news:BB475A2F.6CFA%
Bonjour,
Je dois tester la validité des liens URL, , que j'ai dans des tableaux, en Visual Basic pour Access. J'ai des ASP, qui me transforment ces URL en liens
sur mon site. De façon régulière (pendant la nuit), je voudrais tester tous
ces URL pour savoir s'il sont encore bons et je supprimerai des mauvaises adresses pour ne pas créer des mauvaises liens dans mes ASP.
Merci bien d'avance,
Schnutz Dürr
Bonjour Schnutz,
Il faut regarder des APIS pour effectuer ce genre de vérification, donc
voici du code qui te permettera de faire la vérification :
Exemple :
If DownloadFile("http://yahoo.com","C:TEMPO.TXT") = False then
msgbox "Erreur URL !"
else
msgbox "Url OK !"
endif
dans un module :
Public Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Const ERROR_SUCCESS As Long = 0
Public Function DownloadFile(ssourceUrl As String, _
sLocalFile As String) As Boolean
Dim lngRetVal As Long
'if the API returns ERROR_SUCCESS (0),
'return True from the function
DownloadFile = URLDownloadToFile(0&, _
ssourceUrl, _
sLocalFile, _
0&, _
0&) = ERROR_SUCCESS
End Function
Salutation
Robert Simard
Logipro
"wysc" <wysc@wanadoo.fr> a écrit dans le message de
news:BB475A2F.6CFA%wysc@wanadoo.fr...
Bonjour,
Je dois tester la validité des liens URL, , que j'ai dans des tableaux, en
Visual Basic pour Access. J'ai des ASP, qui me transforment ces URL en
liens
sur mon site. De façon régulière (pendant la nuit), je voudrais tester
tous
ces URL pour savoir s'il sont encore bons et je supprimerai des mauvaises
adresses pour ne pas créer des mauvaises liens dans mes ASP.
Il faut regarder des APIS pour effectuer ce genre de vérification, donc voici du code qui te permettera de faire la vérification : Exemple :
If DownloadFile("http://yahoo.com","C:TEMPO.TXT") = False then msgbox "Erreur URL !" else msgbox "Url OK !" endif
dans un module : Public Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" _ (ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long
Private Const ERROR_SUCCESS As Long = 0
Public Function DownloadFile(ssourceUrl As String, _ sLocalFile As String) As Boolean
Dim lngRetVal As Long
'if the API returns ERROR_SUCCESS (0), 'return True from the function DownloadFile = URLDownloadToFile(0&, _ ssourceUrl, _ sLocalFile, _ 0&, _ 0&) = ERROR_SUCCESS
End Function
Salutation
Robert Simard Logipro
"wysc" a écrit dans le message de news:BB475A2F.6CFA%
Bonjour,
Je dois tester la validité des liens URL, , que j'ai dans des tableaux, en Visual Basic pour Access. J'ai des ASP, qui me transforment ces URL en liens
sur mon site. De façon régulière (pendant la nuit), je voudrais tester tous
ces URL pour savoir s'il sont encore bons et je supprimerai des mauvaises adresses pour ne pas créer des mauvaises liens dans mes ASP.
Merci bien d'avance,
Schnutz Dürr
wysc
Merci bien. Je n'avais pas trouvé le message de Pascal Bezou donc j'ai reposté.
Schnutz
dans l'article 3f21925e$0$16708$, Anor à a écrit le 25.07.2003 22:26 :
Bonjour,
Il y a 4 jours, ta question avait été transférée par Pascal Bezou du forum mac vers le forum access.
