[كود] كود جلب ملفات من السيرفر ووضعة في اليست بوكس

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' Get the object used to communicate with the server.'
    Dim request As Net.FtpWebRequest
    ' تحديد العنوان ولكن إف تي بي '
    request = DirectCast(Net.WebRequest.Create("ftp://?????.???/"), Net.FtpWebRequest)
    ' تحديد المطلوب وهي قائمة بمحتويات المجلد '
    request.Method = Net.WebRequestMethods.Ftp.ListDirectoryDetails

    ' This example assumes the FTP site uses anonymous logon.'
    ' الصلاحية باسم المستخدم وكلمة المرور '
    request.Credentials = New Net.NetworkCredential("username", "password")

    Dim response As Net.FtpWebResponse
    response = DirectCast(request.GetResponse(), Net.FtpWebResponse)

    Dim responseStream As IO.Stream = response.GetResponseStream()
    Dim reader As New IO.StreamReader(responseStream)
    Dim responseString As String = reader.ReadToEnd()

    ' راح تعرف ليه اخترت هذا الخط بعد ما تظهر الأسطر '
    Me.ListBox1.Font = New Font("Courier New", 8)
    Me.ListBox1.Items.AddRange(responseString.Split(vbNewLine))

    reader.Close()
    response.Close()
End Sub 