[VB.NET]upload de fichier vers un serveur
j'essaye d'uploader un fichier vers un serveur. J'ai lu un article sur votre site qui traite le sujet mais j'ai une execption qui est généré et je ne sais pas pkoi.
je vous poste le code
Code:
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
| ' Upload un fichier sur un serveur FTP
Private Sub uploadFichier(ByVal cheminSource As String, ByVal urlDestination As String, ByVal identifiant As String, ByVal motDePasse As String)
'Dim monAuthentificationFtp As New NetworkCredential(identifiant, motDePasse)
' cheminSource : Uri du fichier sur le disque dur
' urlDestination : Uri du fichier de destination sur le serveur FTP
' identifiant : login du compte FTP utilisé
' motDePasse : mot de passe du compte FTP utilisé
Dim monUriFichierLocal As New System.Uri(cheminSource)
Dim monUriFichierDistant As New System.Uri(urlDestination)
'MsgBox(monUriFichierLocal)
' Vérification de la validité de l'Uri de l'emplacement du fichier source
If Not (monUriFichierLocal.Scheme = Uri.UriSchemeFile) Then
MessageBox.Show("Le chemin du fichier local n'est pas valide !", "Une erreur est survenue", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
' Vérification de la validité de l'Uri de l'emplacement du fichier de destination
If Not (monUriFichierDistant.Scheme = Uri.UriSchemeFtp) Then
MessageBox.Show("Le chemin du fichier sur le serveur FTP n'est pas valide !", "Une erreur est surevnue", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
' Création des 2 flux et du reader nécessaire pour l'envoi du fichier
Dim monRequestStream As Stream = Nothing
Dim fileStream As FileStream = Nothing
Dim uploadResponse As FtpWebResponse = Nothing
Try
' Requête d'upload d'un fichier vers le serveur
Dim uploadRequest As FtpWebRequest = CType(WebRequest.Create(urlDestination), FtpWebRequest)
' Vérification de la présence des identifiants d'un compte, si aucun alors
' la connexion se fait en mode anonyme
If Not identifiant.Length = 0 Then
Dim monCompte As New NetworkCredential(identifiant, motDePasse)
uploadRequest.Credentials = monCompte
End If
uploadRequest.Method = WebRequestMethods.Ftp.UploadFile
' Désactivation du proxy http incompatible avec cette requête
uploadRequest.Proxy = Nothing
monRequestStream = uploadRequest.GetRequestStream
fileStream = File.Open(cheminSource, FileMode.Open)
' Tableau d'octets qui va contenir les données issues du fichier
Dim buffer(1024) As Byte
Dim bytesRead As Integer
' Lecture des données et envoi de celle-ci dans le flux
While True
bytesRead = fileStream.Read(buffer, 0, buffer.Length)
If bytesRead = 0 Then
Exit While
End If
' Ecriture des données dans le flux d'upload vers le serveur FTP
monRequestStream.Write(buffer, 0, bytesRead)
End While
'L'objet requestStream dot être fermé avant de récupérer la réponse
monRequestStream.Close()
uploadResponse = CType(uploadRequest.GetResponse(), FtpWebResponse)
MessageBox.Show("Upload terminé.")
' Gestion des exceptions
Catch ex As UriFormatException
MessageBox.Show(ex.Message)
Catch ex As WebException
MessageBox.Show(ex.Message)
Catch ex As IOException
MessageBox.Show(ex.Message)
Finally
' Fermeture des différents flux utilisés
'uploadResponse.Close()
'fileStream.Close()
'monRequestStream.Close()
End Try
End Sub |
L'execption est soulevé ici
Code:
monRequestStream = uploadRequest.GetRequestStream
L'execption dit : Le serveur erreur 550 (soit fichier pas trouve soit pas d'accès). L'url utilisé est sous ce format ftp://user@ftp.domaine.com/dossier
je suis vraiment nouveau avec vb.dot
merci de m'aider
