Bonjour
Initialement, j'ai une appli qui génére un fichier .jpg dont le nommage est
et qui l'uploade via ftp selon les paramètres suivants :valeur_de_textbox1 & "-" & valeur_de_textbox2 (nom-prenom.jpg)
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
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
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/
Comment pourrais je proceder ?
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
merci beaucoup
Partager