je ne vois pas ce que le signe ? aurait à voir dans cette affaire !
Je penche plutôt vers autre chose, à commencer par ton fichier d'accueil
Regarde (testé et fonctionne) :
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 DownloadPage(ByVal url As String, ByVal FileName As String) As Boolean
Dim done As Boolean
Dim bon As Long
ok = True
If Dir$(FileName) <> "" Then
Kill FileName
End If
bon = URLDownloadToFile(0, url, FileName, 0, 0)
If Dir$(FileName) = "" Then
ok = False
End If
DownloadPage = ok
End Function
Private Sub Command1_Click()
Dim toto As Boolean
Dim sURL As String
Dim sFileName As String
sURL = "http://www.youtube.com/watch?v=diAFCexxKfs"
sFileName = "c:\test.txt"
toto = DownloadPage(sURL, sFileName)
If toto Then
MsgBox "Téléchargement réussi."
Else
MsgBox "Erreur lors du télécharegement"
End If
End Sub
Pour autant, bien évidemment, que j'aie les droits nécessaires pour zigouiller, écrire, etc... le fichier c:\test.txt (cela va de soi !)
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient