ท่านใดพอจะทราบวิธีการทำ Ftp Upload แล้วให้แสดงสถานะว่าโหลดไปได้เท่าไร

            'Create Request
            Dim Request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(Str_Url), System.Net.FtpWebRequest)

            'Upload Properties
            Request.Credentials = New System.Net.NetworkCredential(Str_Username, Str_Pwd)
            Request.Method = System.Net.WebRequestMethods.Ftp.UploadFile

            'Read File
            Dim File() As Byte = System.IO.File.ReadAllBytes(Str_PathBase)

            'Upload
            Dim Strz As System.IO.Stream = Request.GetRequestStream()
            Strz.Write(File, 0, File.Length)

            Strz.Close()
            Strz.Dispose()