Размер файла на ftp-сервере

        Dim request As FtpWebRequest = CType(WebRequest.Create(TextBox1.Text), FtpWebRequest) 'TextBox1 - путь до файла на FTP-сервере
        request.Credentials = New NetworkCredential(ToolStripTextBox2.Text, ToolStripTextBox3.Text) 'ToolStripTextBox2.Text, ToolStripTextBox3.Text - Логин и пароль авторизации
        request.Method = WebRequestMethods.Ftp.GetFileSize
        Dim responce As FtpWebResponse = CType(request.GetResponse(), FtpWebResponse)
        MsgBox(responce.ContentLength)

Private Function Reformat_TB_GB_MB(ByRef Value As Long)
        If Len(Value.ToString) > 12 Then ' Reformat if TB
            Return Format(Value / 1024 / 1024 / 1024 / 1024, "##0.00 TB")
        ElseIf Len(Value.ToString) > 9 Then ' Reformat if GB
            Return Format(Value / 1024 / 1024 / 1024, "###,##0.00 GB")
        ElseIf Len(Value.ToString) > 6 Then  ' Reformat if MB
            Return Format(Value / 1024 / 1024, "###,###,##0.00 MB")
        ElseIf Len(Value.ToString) > 3 Then  ' Reformat if KB
            Return Format(Value / 1024, "###,###,###,##0.00 KB")
        Else
            Return Format(Value, "###,###,###,###,##0.00 Bytes")
        End If
    End Function

MsgBox(Reformat_TB_GB_MB(responce.ContentLength))

  request.Method = WebRequestMethods.Ftp.GetFileSize
        Dim size As Long = request.GetResponse().ContentLength
        MsgBox(Reformat_TB_GB_MB(size))