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
| Protected Sub cmdUpload_Click (ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdUpload.Click
uploadFileUsingFTP( "ftp://*.*.*.*/rand.txt" , "C:\Inetpub\wwwroot\rand.txt", "Immobilis", "Sonny")
lblMsg.Text = "Le fichier téléchargé avec succès:)"
End Sub
Public Sub uploadFileUsingFTP (ByVal CompleteFTPPath As String, ByVal CompleteLocalPath As String,Optional ByVal UName As String="" ,Optional ByVal PWD As String="" )
'Créer un objet de requête FTP et Specfiy un chemin complet '
Dim reqObj As FtpWebRequest = WebRequest.Create(CompleteFTPPath)
'Appel d une méthode de FileUpload Object Request FTP '
reqObj.Method = WebRequestMethods.Ftp.UploadFile
'Si vous voulez accéder à Resourse protégées Vous devez donner Nom d utilisateur and PWD et PWD '
reqObj.Credentials = New NetworkCredential(UName, PWD)
'Objet FileStream lire le fichier de Local Drive Local Drive '
Dim streamObj As FileStream = File.OpenRead(CompleteLocalPath)
'File Store dans un tampon '
Dim buffer(streamObj.Length) As Byte
'Read File from Buffer «Lire un fichier de mémoire tampon '
streamObj.Read(buffer, 0, buffer.Length)
'Fermer objet FileStream définir sa valeur à rien '
streamObj.Close()
streamObj = Nothing
'Envoyer un fichier à définir son objet ftp://localHost/ à rien '
reqObj.GetRequestStream().Write(buffer, 0, buffer.Length)
reqObj = Nothing
End Sub |
