Probleme avec mon FileUpload en asp.net

:?
Bonjour a vous tous! J'ai un probleme avec un transfert de fichier en asp.net/vb.
Quand je fais le test en local ca fonctionne tres bien, mais quand j'essaie de Uploader le fichier sur un serveur FTP qui n'est pas en local le fichier est endomage, ca arrive sur le serveur ftp avec 0 KB.
Est ce que quelqu'un peut m'aider SVP?

Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Function FtpUpload(ByVal uri As Uri, ByVal credentials As NetworkCredential, ByVal 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