تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود جلب ملفات من السيرفر ووضعة في اليست بوكس
#1
السلام عليكم


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


 وشكرا
الحمد لله رب العالمين على كل شي
الرد }}}
تم الشكر بواسطة:
#2
وين الخبراء
الحمد لله رب العالمين على كل شي
الرد }}}
تم الشكر بواسطة:
#3
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! لمــأاذا ...!! تـحتـاج الى ملف مرفوع ع السيرفر او كما تسمونه عندك " شل "



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}
تم الشكر بواسطة:
#4

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

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

الرد }}}
تم الشكر بواسطة: silverlord



التنقل السريع :


يقوم بقرائة الموضوع: