Bonjour

Initialement, j'ai une appli qui génére un fichier .jpg dont le nommage est
valeur_de_textbox1 & "-" & valeur_de_textbox2 (nom-prenom.jpg)
et qui l'uploade via ftp selon les paramètres suivants :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private localPath As String = "\\nas\rep1\rep2\rep3\rep4\" 'path du jpg a uploader
Private user As String = "monlogin"
Private password As String = "monpass"
Private ftpUrl As String = "ftp://ftp.cluster006.ovh.net/www/jdownloads/fiches/" 'path ou uploader le fichier
jusqu'ici je n'avais aucun probleme mais la donne a changée car le sous rep final d'upload n'est plus "fiches" mais un rep généré automatiquement a l'inscription de l'user sur le site. Il est de la forme nom_user

exemple :
Un user nommé Mélanie ZETAUFRAIS s'inscrit sur le site, un rep ZETAUFRAIS est crée sur le ftp.
Si ce user utilise l'appli, un fichier ZETAUFRAIS-Melanie.jpg est crée et mon but est d'uploader ZETAUFRAIS-Melanie.jpg dans "ftp://ftp.cluster006.ovh.net/www/jdownloads/ZETAUFRAIS/"

Je ne risque pas de probleme de dossier inexistant car le user doit être enregistré avant de pouvoir utiliser l'appli
1 Seul fichier est autorisé par dossier donc pas de souci de doublon non plus.

Voila ce que j'ai sachant que ca cloche au niveau du rep d'upload (/fiches/). Je ne parviens pas a trouver la syntaxe pour dire remplacer /fiches/ par /valeur_de_textbox1/

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
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub upload()
        Dim myDate As DateTime
        If Not (DateTime.TryParse(TxtDate.Text, myDate)) Then
            MessageBox.Show("Error")
            Exit Sub
        End If
        Dim fileName As String = Txtnom.Text & "-" & txtPrenom.Text & ".jpeg"
        Dim requestFTPUploader As FtpWebRequest = DirectCast(WebRequest.Create("ftp://ftp.cluster006.ovh.net/www/jdownloads/fiches/" & fileName), FtpWebRequest)
        requestFTPUploader.Credentials = New NetworkCredential(user, password)
        requestFTPUploader.Method = WebRequestMethods.Ftp.UploadFile

        Dim fileInfo As New FileInfo(localPath & fileName)
        Dim fileStream As FileStream = fileInfo.OpenRead()

        Dim bufferLength As Integer = 2048
        Dim buffer As Byte() = New Byte(bufferLength - 1) {}

        Dim uploadStream As Stream = requestFTPUploader.GetRequestStream()
        Dim contentLength As Integer = fileStream.Read(buffer, 0, bufferLength)

        While contentLength <> 0
            uploadStream.Write(buffer, 0, contentLength)
            contentLength = fileStream.Read(buffer, 0, bufferLength)
        End While
        uploadStream.Close()
        fileStream.Close()
        requestFTPUploader = Nothing
    End Sub
Comment pourrais je proceder ?
merci beaucoup