منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] كود جلب ملفات من السيرفر ووضعة في اليست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] كود جلب ملفات من السيرفر ووضعة في اليست بوكس (/showthread.php?tid=10769)



كود جلب ملفات من السيرفر ووضعة في اليست بوكس - hassan - 23-11-14

السلام عليكم


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


 وشكرا


RE: كود جلب ملفات من السيرفر ووضعة في اليست بوكس - hassan - 24-11-14

وين الخبراء


RE: كود جلب ملفات من السيرفر ووضعة في اليست بوكس - a_almisery - 25-11-14

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


RE: كود جلب ملفات من السيرفر ووضعة في اليست بوكس - الوليد ☺ - 26-11-14


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

رغم انشغالي شوف هذا الموضوع 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