Samsam2010
چهارشنبه 09 شهریور 1390, 00:50 صبح
با سلام
دوستان من میخوام یک فولدر رو با تمام محتویاتش از روی هاستم دانلود کنم
لطفا راهشو بهم بگید
جستجو کردم این کد رو پیدا کردم اما این کد فقط اسامی رو بصورت استرینگ میاره چطوری میتونم دونه دونه اسم فایل ها رو بدست بیارم و دانلودشون کنم
Imports System.IO
Imports System.Net
Imports System.Text
Namespace Examples.System.Net
Public Class WebRequestGetExample
Public Shared Sub Main()
' Get the object used to communicate with the server.
Dim request As FtpWebRequest = DirectCast(WebRequest.Create("ftp://www.contoso.com/"), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.ListDirectoryDetails
' This example assumes the FTP site uses anonymous logon.
request.Credentials = New NetworkCredential("anonymous", "janeDoe@contoso.com")
Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
Dim responseStream As Stream = response.GetResponseStream()
Dim reader As New StreamReader(responseStream)
Console.WriteLine(reader.ReadToEnd())
Console.WriteLine("Directory List Complete, status {0}", response.StatusDescription)
reader.Close()
response.Close()
End Sub
End Class
End Namespace
دوستان من میخوام یک فولدر رو با تمام محتویاتش از روی هاستم دانلود کنم
لطفا راهشو بهم بگید
جستجو کردم این کد رو پیدا کردم اما این کد فقط اسامی رو بصورت استرینگ میاره چطوری میتونم دونه دونه اسم فایل ها رو بدست بیارم و دانلودشون کنم
Imports System.IO
Imports System.Net
Imports System.Text
Namespace Examples.System.Net
Public Class WebRequestGetExample
Public Shared Sub Main()
' Get the object used to communicate with the server.
Dim request As FtpWebRequest = DirectCast(WebRequest.Create("ftp://www.contoso.com/"), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.ListDirectoryDetails
' This example assumes the FTP site uses anonymous logon.
request.Credentials = New NetworkCredential("anonymous", "janeDoe@contoso.com")
Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
Dim responseStream As Stream = response.GetResponseStream()
Dim reader As New StreamReader(responseStream)
Console.WriteLine(reader.ReadToEnd())
Console.WriteLine("Directory List Complete, status {0}", response.StatusDescription)
reader.Close()
response.Close()
End Sub
End Class
End Namespace