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 spl(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)
'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
0 comments:
Yorum Gönder