[VB.NET] Envoyer/Gérer des fichiers via FTP
Résolu
hcp7kuz
Messages postés
243
Date d'inscription
Statut
Membre
Dernière intervention
-
hcp7kuz Messages postés 243 Date d'inscription Statut Membre Dernière intervention -
hcp7kuz Messages postés 243 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je cherche à envoyer des fichiers ou bien tout simplement me connecter à un FTP, mais aucunes des fonctions ou de ce que j'ai pu trouver sur internet ne fonctionne. Quelqu'un aurait une idée ?
P-S : Ce n'est pas le FTP qui a un problème, tout marche très bien avec FileZilla.
Je cherche à envoyer des fichiers ou bien tout simplement me connecter à un FTP, mais aucunes des fonctions ou de ce que j'ai pu trouver sur internet ne fonctionne. Quelqu'un aurait une idée ?
P-S : Ce n'est pas le FTP qui a un problème, tout marche très bien avec FileZilla.
A voir également:
- [VB.NET] Envoyer/Gérer des fichiers via FTP
- Renommer des fichiers en masse - Guide
- Fichiers epub - Guide
- Gerer stockage google - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Explorateur de fichiers - Guide
1 réponse
J'ai finalement trouvé sur ce lien : https://dotnet.developpez.com/faq/asp/vbnet/?page=transfertftp
code :
code :
Public Shared Function FtpUpload(ByVal adresse_ftp As String, ByVal username As String, ByVal password As String, ByVal pathFile As String) As Boolean
Dim uri As Uri = New Uri(adresse_ftp)
Dim credentials As NetworkCredential = New NetworkCredential(username, password)
Dim fileInfo As FileInfo = New FileInfo(pathFile)
Dim request As FtpWebRequest = DirectCast(FtpWebRequest.Create(Path.Combine(uri.AbsoluteUri, fileInfo.Name)), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.UploadFile
request.Credentials = credentials
request.UseBinary = True
request.KeepAlive = False
request.UsePassive = True
Dim buffer As Byte() = New Byte(2047) {}
Try
Using stream As Stream = request.GetRequestStream()
Using fs As FileStream = File.OpenRead(fileInfo.FullName)
Dim block As Integer
While ((block = fs.Read(buffer, 0, buffer.Length)) > 0)
stream.Write(buffer, 0, block)
End While
End Using
End Using
Return True
Catch ex As Exception
MsgBox("Erreur")
Return False
End Try
End Function