A voir également:
- Télécharger un fichier avec VB .net
- Fichier bin - Guide
- Télécharger clavier arabe - Télécharger - Divers Web & Internet
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier rar - Guide
3 réponses
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
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
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+
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+
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
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