Création d'un fichier dans un répertoire FTP

Fermé
superclem100 Messages postés 32 Date d'inscription mercredi 4 mai 2011 Statut Membre Dernière intervention 15 novembre 2016 - Modifié par superclem100 le 15/05/2016 à 21:20
superclem100 Messages postés 32 Date d'inscription mercredi 4 mai 2011 Statut Membre Dernière intervention 15 novembre 2016 - 16 mai 2016 à 17:01
Bonjour, je cherche a créer un fichier texte dans un répertoire FTP.
Après avoir fais plusieurs recherches sur internet, je n'ai trouvé seulement le moyen de déplacer un fichier local.

Avant class:

Imports System.IO
Imports System.Net

Dans class:

Dim txt As String
txt = "[" + TimeString + " " + Today + "] " + vbCrLf + "Utilisateur : " + TextBox1.Text + vbCrLf + "Mot de passe : " + TextBox2.Text + vbCrLf + vbCrLf
Try 'Instance d'essaie qui retournera une erreur en cas de problème

Dim request As FtpWebRequest = DirectCast(WebRequest.Create("ftp://LEFTP/fichier.txt"), System.Net.FtpWebRequest) 'On renseigne la futur destination du fichier à envoyer
request.Credentials = New NetworkCredential("ID", "MDP") 'On rentre les identifiant et mot de passe

request.Method = System.Net.WebRequestMethods.Ftp.UploadFile 'On indique qu'on veut upload un fichier

Dim files() As Byte = File.ReadAllBytes("Chemin du fichier a upload") 'On indique le chemin du fichier à upload

Dim strz As Stream = request.GetRequestStream() 'On créer un stream qui va nous permettre d'envoyer le fichier

strz.Write(files, 0, files.Length) 'On envoie le fichier

strz.Close() 'On ferme la connection
strz.Dispose() 'On supprime la connection

Catch ex As Exception 'Une erreur c'est produite, on récupère l'erreur et on l'affiche.
MsgBox("Erreur :" & vbCrLf & ex.ToString)
End Try

ce code fonctionne très bien mais seulement pour déplacer un fichier local vers un répertoire ftp or moi j'aimerais créer un fichier texte directement dans le répertoire.
Merci d'avance

1 réponse

superclem100 Messages postés 32 Date d'inscription mercredi 4 mai 2011 Statut Membre Dernière intervention 15 novembre 2016 13
16 mai 2016 à 17:01
up
0