Загрузка файла на сервер

My.Computer.Network.UploadFile()

Dim fi As New FileInfo("путь к файлу")
Dim s As Long = fi.Length'размер файла в байтах

Dim img As New Bitmap("путь к файлу")
Dim w As Single = img.PhysicalDimension.Width'ширина изображения
Dim h As Single = img.PhysicalDimension.Height'высота изображения

 Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        OpenFileDialog1.InitialDirectory = "C:\\"
        OpenFileDialog1.Filter = "Изображение 64x32 (*.png)|*.png" 'MessageBox.Show("Загрузка скинов находится в разработке", "Ошибка")
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.RestoreDirectory = True
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            My.Computer.Network.UploadFile(OpenFileDialog1.FileName.ToString(), "ftp://@31.170.164.103/public_html/cabinet/thiscraftServer/MinecraftSkins/" & Form1.TextBox1.Text & ".png", "u776270899", "Rfvtcbnq1")
            PictureBox4.ImageLocation = ("http://thiscraft.tk/cabinet/skin.php?user_name=" & Form1.TextBox1.Text & "&mode=1")
            PictureBox5.ImageLocation = ("http://thiscraft.tk/cabinet/skin.php?user_name=" & Form1.TextBox1.Text & "&mode=2")
        End If
 
        MessageBox.Show("Ура! Скин успешно загружен!", "Внимание!")
    End Sub

Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
    OpenFileDialog1.InitialDirectory = "C:\\"
    OpenFileDialog1.Filter = "Изображение 64x32 (*.png)|*.png" 'MessageBox.Show("Загрузка скинов находится в разработке", "Ошибка")
    OpenFileDialog1.FilterIndex = 1
    OpenFileDialog1.RestoreDirectory = True
    If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
        Dim fi As New FileInfo(OpenFileDialog1.FileName)
        Dim s As Long = fi.Length'размер файла в байтах
        Dim img As New Bitmap(OpenFileDialog1.FileName)
        Dim w As Single = img.PhysicalDimension.Width'ширина изображения
        Dim h As Single = img.PhysicalDimension.Height'высота изображения
        If s < 100 And w < 64 And h < 32 Then'свои числа поставьте
            My.Computer.Network.UploadFile(OpenFileDialog1.FileName.ToString(), "ftp://@31.170.164.103/public_html/cabinet/thiscraftServer/MinecraftSkins/" & Form1.TextBox1.Text & ".png", "u776270899", "Rfvtcbnq1")
            PictureBox4.ImageLocation = ("http://thiscraft.tk/cabinet/skin.php?user_name=" & Form1.TextBox1.Text & "&mode=1")
            PictureBox5.ImageLocation = ("http://thiscraft.tk/cabinet/skin.php?user_name=" & Form1.TextBox1.Text & "&mode=2")
        End If
    End If
 
    MessageBox.Show("Ура! Скин успешно загружен!", "Внимание!")
End Sub

 Private Sub uploadFTP(ByVal URl As String, ByVal filename As String, ByVal bk As String, ByVal pw As String)
        Dim requ As FtpWebRequest = Nothing
        Dim resp As FtpWebResponse = Nothing
        Dim requStrm As Stream = Nothing
        Dim fileStrm As FileStream = Nothing
        Try
            requ = CType(WebRequest.Create(URL), FtpWebRequest)
            requ.Credentials = New NetworkCredential(bk, pw)
            requ.Method = WebRequestMethods.Ftp.UploadFile
            requ.Timeout = System.Threading.Timeout.Infinite
            requ.Proxy = Nothing
            requStrm = requ.GetRequestStream()
            Dim buff(2048) As Byte
            Dim bytesRead As Integer = 0
            fileStrm = File.OpenRead(filename)
            Do While (True)
                bytesRead = fileStrm.Read(buff, 0, buff.Length)
                If (bytesRead = 0) Then Exit Do
                requStrm.Write(buff, 0, bytesRead)
            Loop
            requStrm.Close()
            resp = CType(requ.GetResponse(), FtpWebResponse)
            ToolStripStatusLabel1.Text = "Загрузка заершена!"
        Catch ex As UriFormatException
            ToolStripStatusLabel1.Text = ex.Message
        Catch ex As IOException
            ToolStripStatusLabel2.Text = ex.Message
        Catch ex As WebException
            ToolStripStatusLabel2.Text = ex.Message
        Finally
            If resp IsNot Nothing Then resp.Close()
            If fileStrm IsNot Nothing Then fileStrm.Close()
            If requStrm IsNot Nothing Then requStrm.Close()
        End Try
    End Sub

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            uploadFTP(OpenFileDialog1.FileName, TextBox1.Text + "/" + Path.GetFileName(OpenFileDialog1.FileName), TextBox2.Text, TextBox3.Text)
        End If
    End Sub

Imports System.Net
Imports System.IO
Public Class Form1
 
    Private Sub listFTP(ByVal URL As String, ByVal bk As String, ByVal pw As String)
        Dim requ As FtpWebRequest = Nothing
        Dim resp As FtpWebResponse = Nothing
        Dim reader As StreamReader = Nothing
        Try
            requ = CType(WebRequest.Create(URL), FtpWebRequest)
            requ.Credentials = New NetworkCredential(bk, pw)
            requ.Method = WebRequestMethods.Ftp.ListDirectory
            resp = CType(requ.GetResponse(), FtpWebResponse)
            reader = New StreamReader(resp.GetResponseStream())
            While (reader.Peek() > -1)
                ListBox1.Items.Add(reader.ReadLine())
            End While
            ToolStripStatusLabel1.Text = "Листинг завершен!"
        Catch ex As UriFormatException
            ToolStripStatusLabel1.Text = ex.Message
        Catch ex As WebException
            ToolStripStatusLabel2.Text = ex.Message
        Finally
            If reader IsNot Nothing Then reader.Close()
        End Try
    End Sub
 
    Private Sub downloadFTP(ByVal URL As String, ByVal bk As String, ByVal pw As String)
        Dim requ As FtpWebRequest = Nothing
        Dim resp As FtpWebResponse = Nothing
        Dim respStrm As Stream = Nothing
        Dim fileStrm As FileStream = Nothing
        Try
            requ = CType(WebRequest.Create(URL), FtpWebRequest)
            requ.Credentials = New NetworkCredential(bk, pw)
            requ.Method = WebRequestMethods.Ftp.DownloadFile
            resp = CType(requ.GetResponse(), FtpWebResponse)
            respStrm = resp.GetResponseStream()
            SaveFileDialog1.FileName = Path.GetFileName(requ.RequestUri.LocalPath)
            If (SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
                fileStrm = File.Create(SaveFileDialog1.FileName)
                Dim buff(1024) As Byte
                Dim bytesRead As Integer = 0
                While (True)
                    bytesRead = respStrm.Read(buff, 0, buff.Length)
                    If (bytesRead = 0) Then Exit While
                    fileStrm.Write(buff, 0, bytesRead)
                End While
                ToolStripStatusLabel1.Text = "Загрузка завершена!"
            End If
        Catch ex As UriFormatException
            ToolStripStatusLabel1.Text = ex.Message
        Catch ex As WebException
            ToolStripStatusLabel2.Text = ex.Message
        Catch ex As IOException
            ToolStripStatusLabel2.Text = ex.Message
        Finally
            If respStrm IsNot Nothing Then respStrm.Close()
            If fileStrm IsNot Nothing Then fileStrm.Close()
        End Try
    End Sub
 
    Private Sub uploadFTP(ByVal URl As String, ByVal filename As String, ByVal bk As String, ByVal pw As String)
        Dim requ As FtpWebRequest = Nothing
        Dim resp As FtpWebResponse = Nothing
        Dim requStrm As Stream = Nothing
        Dim fileStrm As FileStream = Nothing
        Try
            requ = CType(WebRequest.Create(URL), FtpWebRequest)
            requ.Credentials = New NetworkCredential(bk, pw)
            requ.Method = WebRequestMethods.Ftp.UploadFile
            requ.Timeout = System.Threading.Timeout.Infinite
            requ.Proxy = Nothing
            requStrm = requ.GetRequestStream()
            Dim buff(2048) As Byte
            Dim bytesRead As Integer = 0
            fileStrm = File.OpenRead(filename)
            Do While (True)
                bytesRead = fileStrm.Read(buff, 0, buff.Length)
                If (bytesRead = 0) Then Exit Do
                requStrm.Write(buff, 0, bytesRead)
            Loop
            requStrm.Close()
            resp = CType(requ.GetResponse(), FtpWebResponse)
            ToolStripStatusLabel1.Text = "Загрузка заершена!"
        Catch ex As UriFormatException
            ToolStripStatusLabel1.Text = ex.Message
        Catch ex As IOException
            ToolStripStatusLabel2.Text = ex.Message
        Catch ex As WebException
            ToolStripStatusLabel2.Text = ex.Message
        Finally
            If resp IsNot Nothing Then resp.Close()
            If fileStrm IsNot Nothing Then fileStrm.Close()
            If requStrm IsNot Nothing Then requStrm.Close()
        End Try
    End Sub
 
    Private Sub deleteFTP(ByVal URL As String, ByVal bk As String, ByVal pw As String)
        Dim requ As FtpWebRequest = Nothing
        Dim resp As FtpWebResponse = Nothing
        Try
            requ = CType(WebRequest.Create(URL), FtpWebRequest)
            requ.Credentials = New NetworkCredential(bk, pw)
            requ.Method = WebRequestMethods.Ftp.DeleteFile
            resp = CType(requ.GetResponse(), FtpWebResponse)
            ToolStripStatusLabel1.Text = "Файл удален!"
        Catch ex As UriFormatException
            ToolStripStatusLabel2.Text = ex.Message
        Catch ex As WebException
            ToolStripStatusLabel2.Text = ex.Message
        Finally
            If resp IsNot Nothing Then resp.Close()
        End Try
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        listFTP(TextBox1.Text, TextBox2.Text, TextBox3.Text)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        downloadFTP(TextBox4.text, TextBox2.Text, TextBox3.Text)
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            uploadFTP(OpenFileDialog1.FileName, TextBox1.Text + "/" + Path.GetFileName(OpenFileDialog1.FileName), TextBox2.Text, TextBox3.Text)
        End If
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        TextBox4.Text = TextBox1.Text & "/" & ListBox1.SelectedItems(0).ToString()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If (MessageBox.Show("Вы хотите удалить этот файл?", "Внимание", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes) Then
            deleteFTP(TextBox4.Text, TextBox2.Text, TextBox3.Text)
        End If
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ListBox1.Items.Clear()
        listFTP(TextBox1.Text, TextBox2.Text, TextBox3.Text)
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Application.Exit()
    End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.InitialDirectory = "C:\"
        OpenFileDialog1.Filter = "Изображение 64x32 (*.png)|*.png" 'MessageBox.Show("Загрузка скинов находится в разработке", "Ошибка")
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.Multiselect = False
        OpenFileDialog1.RestoreDirectory = True
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            UploadFileToFTPserver("ftp://31.170.164.103/public_html/cabinet/thiscraftServer/MinecraftSkins/" & Textbox1.Text & ".png", "u776270899", "Rfvtcbnq1", OpenFileDialog1.FileName)
        End If
    End Sub
    Private Sub UploadFileToFTPserver(ByVal ftp As String, ByVal user As String, ByVal pas As String, ByVal file As String)
        Dim fi As New IO.FileInfo(file)
        Dim s As Long = fi.Length 'размер файла в байтах
        Dim img As New Bitmap(file)
        Dim w As Single = img.PhysicalDimension.Width 'ширина изображения
        Dim h As Single = img.PhysicalDimension.Height 'высота изображения
        Dim flag As Integer = 0
        If s > 100 * 1024 Then flag += 2
        If w > 64 Then flag += 4
        If h > 32 Then flag += 8
        If flag <> 0 Then
            Dim errMes As String = "Ошибка! Файл не подходит по данным параметрам: "
            Dim Col As New Collection
            Dim Max As Integer = 8
            Do While Max > 0
                If flag >= Max Then
                    Select Case Max
                        Case 8
                            errMes += "высота изображения, "
                        Case 4
                            errMes += "ширина изображения, "
                        Case 2
                            errMes += "размер файла, "
                    End Select
                    flag -= Max
                    Max /= 2
                Else
                    Max /= 2
                End If
            Loop
            errMes = errMes.Remove(errMes.Length - 2, 2)
            MsgBox(errMes, MsgBoxStyle.Critical, "Ошибка")
        Else
            Try
                My.Computer.Network.UploadFile(file, ftp, user, pas, False, 1000, FileIO.UICancelOption.ThrowException)
                MsgBox("УРА! МЫ ЗАГРУЗИЛИ ФАЙЛ")
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Не удалось загрузить файл")
            End Try
        End If
    End Sub