Problème d'envoi de fichiers par FTP
Bonsoir, Alors là j'ai un problème sérieux.
J'ai des fonctions qui, selon moi, récupère un fichier sur mon ordinateur et l'envoie par FTP sur un server. (Notons que je developpe en asp.net et vb.net)
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
| <script language= "vb" runat= "server" >
Public Shared Function FtpUpload(uri As Uri, credentials As NetworkCredential, fileInfo As FileInfo) As Boolean
Dim request As FtpWebRequest = DirectCast(FtpWebRequest.Create(Path.Combine(uri.AbsoluteUri, fileInfo.Name)), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.UploadFile
request.Credentials = credentials
request.UseBinary = True
request.KeepAlive = False
request.UsePassive = True
Dim buffer As Byte() = New Byte(2047) {}
Using stream As Stream = request.GetRequestStream()
Using fs As FileStream = File.OpenRead(fileInfo.FullName)
Dim block As Integer
While (block = fs.Read(buffer, 0, buffer.Length)) > 0
stream.Write(buffer, 0, block)
End While
End Using
End Using
Return True
End Function
Public Sub Page_load(ByVal sender As Object, ByVal e As System.EventArgs)
FtpUpload(New Uri("ftp://*.*.*.*"), New NetworkCredential("toto", "tata"), New FileInfo("C:\Inetpub\wwwroot\Sonny.txt"))
end sub |
Le problème est que le fichier est vide à l'arrivée sur le server.
Celui-ci part bien mais je sais pas pourquoi il est vide.
Après des tests je me suis rendu compte que c'était exactement le fichier en question qu'il envoyait (ou qu'il copiait je sais pas...)
Merci d'avance:?
