hello,

voilà j'ai un petit souci de telechargement de fichier texte.

Si le fichier est d'assez petite taille, aucun souci, mais pour un fichier plus gros (ici 10 mo), Le telechargement ne se termine pas toujours et, plus génant, aucun message d'erreur

voici mon code (ce code se trouve seul dans un module et je l'ai trouvé sur le forum):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
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
 
Public Sub Copy_File()
    Dim URL As String
    Dim Destination As String
 
    URL = "http://nomsite/nomfichier.txt"
    Destination = "C:\nomfichier.txt"
 
    URLDownloadToFile 0, URL, Destination, 0, 0 'chargement du fichier texte
 
 
 End Sub
Voilà alors en fait des fois j'ai le fichier complet, des fois il fait 8 mo...

Je voudrais savoir si il y a une méthode plus "sure" qui permette d'avoir le fichier complet à tout les coups ou au moins réussir à avoir une erreur si le telechargement est interrompu (pour pouvoir relancer)

Merci de vos réponses car je ne trouve rien à ce sujet

PS: je ne comprend pas ce morceau de code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Lib "urlmon" Alias "URLDownloadToFileA"