منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كود جلب ملفات من السيرفر ووضعة في اليست بوكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم


مثل مافي موضوع في العنوان ابي كود اضع فيه رابط السيرفر الخاص ويجلب لي الملفات الذي في هذا الرابط


 وشكرا
وين الخبراء
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! لمــأاذا ...!! تـحتـاج الى ملف مرفوع ع السيرفر او كما تسمونه عندك " شل "

السلام عليكم ورحمة الله

رغم انشغالي شوف هذا الموضوع List Directory Contents with FTP
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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