[bidaya]

السلام عليكم 

ارجو من الاخوة الكرام كتابة هذا الكود بالسيشارب

كود :

Public Class Form1


   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim ds As New Net.WebClient()
       ds.Credentials = New Net.NetworkCredential("اسم المستخدم في ftp", "الرقم السري")
       Label1.text = ds.DownloadString("ftp:\\اسم ملف txt")
       Label1.text = Val(Label1) + Val("1")
       ds.UploadString("ftp:\\اسم ملف txt")
   End Sub
End Class