Dopo aver tentato il codice che mi haidato, intel mi dava un errore, poi ripensando a quali funzioni potevo usare ho detto: potrei usare URLDownloadToFile visto che restituisce un valore.
Lo ho postato qui sotto nel caso che servisse a qualche utente di questo forum.
<b>Private 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
Function ValidaUrl(ByVal URL As String, ByVal TempFile As String) As Boolean
' Tenta di fare il download di un file (URL), restituisce True in caso di successo
ValidaUrl = (URLDownloadToFile(0, URL, TempFile, 0, 0) = 0)
If ValidaUrl Then Kill TempFile
End Function
Private Sub Form_Load()
MsgBox ValidaUrl("
https://www.iprogrammatori.i", "C:\IProgrammatori.htm")
End Sub
</b>
Se la montagna viene da te e te non ti chiami Maometto, scappa è una frana!!!
Modificato da: jack61 il 08/09/2006 alle 09:14:34