Discussion :

[horneth]

Salut

Voilà tout est dans le titre j'aurais voulu savoir comment faire pour télécharger un fichier depuis internet en spécifiant l'URL de ce fichier. J'ai déjà essayer avec "la méthode DownloadFile" que j'ai trouver sur le site de la msdn mais ca ne marche pas j'ai une erreur qui me dit qu'il manque un "=" . Le problème c'est que je ne vois pas très bien où mettre un égal dans le code qu'il donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
My.Computer.Network.DownloadFile _
    ("http://www.cohowinery.com/downloads/WineList.txt", _
    "C:\Documents and Settings\All Users\Documents\WineList.txt")

Merci de votre aide.

[zazaraignée]

Salut

À tout hasard, puisque je ne connais pas cette fonction: La méthode DownloadFile retourne peut-être une valeur répondant du succès ou de l'échec de celle-ci...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
reponse = My.Computer.Network.DownloadFile _
    ("http://www.cohowinery.com/downloads/WineList.txt", _
    "C:\Documents and Settings\All Users\Documents\WineList.txt")

serait à essayer...

[SilkyRoad]

bonsoir

tu peux tester cette adaptation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
 
Private Const ERROR_SUCCESS As Long = 0
 
Sub LancementProcedure()
DownloadFile "http://www.leSite/fichier.txt", "C:\fichier.txt"
End Sub
 
Public Function DownloadFile(ByVal sURL As String, ByVal sLocalFile _
                        As String) As Boolean
Dim lngRetVal As Long
DownloadFile = URLDownloadToFile(0&, sURL, sLocalFile, 0&, 0&) = ERROR_SUCCESS
End Function

bonne soiree
michel

[zazaraignée]

Savais qu'il y avait plus costaud que moi!

[sovo]

le probleme c'est que tu es entraint de vouloir executer une procedure et que tu t'y prend mal

deux possibilite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
'avec les parentheses
call My.Computer.Network.DownloadFile _
    ("http://www.cohowinery.com/downloads/WineList.txt", _
    "C:\Documents and Settings\All Users\Documents\WineList.txt")

ou 

'sans parentheses
My.Computer.Network.DownloadFile _
    "http://www.cohowinery.com/downloads/WineList.txt", _
    "C:\Documents and Settings\All Users\Documents\WineList.txt"

[edit] Just une question en passant : c'est du vb(6) ou du vb.net ca ?? car j'ai l'impression que tu risques d'avoir une grosse surprise si tu es sous vb(6)

[SfJ5Rpw8]

Bonsoir , horneth ... bon le code que tu nous montre en exemple semble être du .Net... merci de préciser avec quelle version de visualbasic tu l'exécute... car si c'est du VB6 .. c'est pas le bon code ... et si c'est du .net c'est pas le bon forum...

..