Télécharger un fichier avec VB .net

van' -  
 toto -
Bonjour,
est ce que quelqu'un connait un moyen de télécharger automatiquement un fichier sur internet avec VB .net.
Merci

3 réponses

  1. kouki1000 Messages postés 117 Statut Membre 9
     
    Je vais commenter le code de BLODOX pour que tu comprenne.

    Private Sub DOWNLOAD_FILE() 'Declaration du sub
    Dim REMOTE_URL As String = "http://......" ' adresse de la page ou du fichier à récuperer
    Dim F As Integer = FreeFile()
    Dim WEB_CLIENT As New System.Net.WebClient() 'Création du controle client
    '
    Dim DNL_FILE as String = "monfichierdereception" 'Adresse de reception
    '
    Try
    WEB_CLIENT.DownloadFile(REMOTE_URL, DNL_FILE) 'Téléchargement
    Catch ex As Exception ' S'il y a une erreur alors
    MsgBox(ex.Message) 'affichier l'erreur dans une Message Box
    End Try
    '
    End Sub 'Fin du Sub
    5
  2. BLODOX Messages postés 10 Statut Membre 3
     
    Si c'est dans le sens OrdiDistant -> MonOrdi
    Essayes ça :

    Private Sub DOWNLOAD_FILE()
    '
    Dim REMOTE_URL As String = "http://......" ' adresse de la page ou du fichier à récuperer
    Dim F As Integer = FreeFile()
    Dim WEB_CLIENT As New System.Net.WebClient()
    '
    Dim DNL_FILE as String = "monfichierdereception"
    '
    Try
    WEB_CLIENT.DownloadFile(REMOTE_URL, DNL_FILE)
    Catch ex As Exception
    MsgBox(ex.Message)
    End Try
    '
    End Sub

    a+
    2
    1. BadBoy3 Messages postés 128 Statut Membre 15
       
      Bonjour,
      Mais Comment svp préciser un chemin,Par ce que le fichier est placer dans les fichier temporere,Merci de me repondre
      0
    2. jamesst20 Messages postés 76 Statut Membre 3
       
      Salut,

      Dim REMOTE_URL As String = "http://......" ' adresse de la page ou du fichier à récuperer
      Dim F As Integer = FreeFile()
      Dim WEB_CLIENT As New System.Net.WebClient()

      Dim FileName1 As String = "C:/MonFichier""

      Try
      WEB_CLIENT.DownloadFile(REMOTE_URL,FileName1)
      Catch ex As Exception
      MsgBox(ex.Message)
      End Try

      PS: Je n'est pas testé, Désolé si je me trompe
      0
    3. toto
       
      ne fonctionne pas pour les grand fichier 800 Mo et plus
      0
  3. stromae Messages postés 34 Statut Membre
     
    je cherche aussi le moyen de le faire mais je n'en trouve pas
    0