Ftp Upload

Merhaba arkadaşlar bu makalemizde ftp olarak dosya yüklemeyi göreceğiz. Formumuza 1 adet Button ve 1 adet OpenFileDialog ekliyoruz. OpenFileDialog ile ftp ile yüklenecek dosyayı seçiyoruz. 

Şekil 1

Bu örneğimizde drivehq.com un sağladığı storage alana ftp olarak dosyayı ekleyeceğiz. Örneğin test.txt dosyası gibi dosyayı karşıya yükleyeceğiz.

Şekil 2

İlk önce forma eklediğimiz buttona tıklayalım. Açılan OpenFileDialog penceresinde ftp olarak yüklenecek dosyayı seçip tamam diyelim. Eğer herhangi bir iletişim ile ilgili bir hata olmazsa aşağıdaki gibi yüklenildiğine dair mesaj ekranını göreceğiz.

Şekil 3

Drivehq sitesine kullanıcı adı ve şifrenizle giriş yapabileceğiniz gibi, direkt olarak açacağınız windows penceresine ftp://username:password@ftp.drivehq.com/ yazıp , enter a basarakta bağlanabilirsiniz.

For example: username:adam password:1234

Şekil 4

Form1.vb

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim spl As String

        Dim spl2 As String()

        'ftp olarak yuklenecek dosyayi openfiledialog ile seciyoruz

        'we select the file to be uploaded as ftp with OpenFileDialog.

        OpenFileDialog1.Filter = ("Text Documents (*.txt)|*.txt|Word Documents (*.docx)|*.docx|Excel Documents (*.xlsx)|*.xlsx|All Documents(*.*)|*.*")

        OpenFileDialog1.Title = "Documents"

        OpenFileDialog1.FileName = "Documents"

        OpenFileDialog1.FilterIndex = 1

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)

            'for example spl=C:\text.txt

            spl = OpenFileDialog1.FileName

            'for example spl2(0)=C:\ & spl2(1)=text.txt

            spl2 = spl.Split("\")

            FileClose(1)

        End If

        Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://ftp.drivehq.com/" & spl2(1).ToString()), System.Net.FtpWebRequest)

        'or Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://ftp.drivehq.com/readme.txt"), System.Net.FtpWebRequest)

        'ftp baglantisi icin kullanici adi ve sifre girisini yapiyoruz

        ' username and password login for ftp connection

        ' request.Credentials = New System.Net.NetworkCredential("username", "password")

        request.Credentials = New System.Net.NetworkCredential("abcd", "1234")

        request.Method = System.Net.WebRequestMethods.Ftp.UploadFile

        'for example Dim file() As Byte = System.IO.File.ReadAllBytes("C:\test.xlsx")

        Dim file() As Byte = System.IO.File.ReadAllBytes(spl2(0).ToString() & spl2(1).ToString())

        Dim str As System.IO.Stream = request.GetRequestStream()

        str.Write(file, 0, file.Length)

        str.Close()

        MessageBox.Show(OpenFileDialog1.FileName & " file uploaded!")

        str.Dispose()

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN