دریافت فیال از ftp با لوگین

[arash_vb]

سلام،من از کدی برای دانلود از ftp استفاده کنم که قسمتیش رو که مهمتره رو در زیر گذاشتم..ممکنه این کد رو کامل کنید که بتونم یوزر و پسورد رو هم وارد کنم برای دانلود ..به عبارتی از ftp که یوزر و پسورد داره دانلود کنم.

در ضمن قابل ذکره که فقط مجاز به استفاده از همین کد هستم و
دستور دیگری که در my.network قرار داره به کار نمیاید.


تشکر




Public Function DownloadFile(ByVal URL As String, ByVal
Location As String) As Boolean
Try
mCurrentFile = GetFileName(URL)
Dim WC As New WebClient
WC.DownloadFile(URL, Location)
RaiseEvent FileDownloadComplete()
Return True
Catch ex As Exception
RaiseEvent FileDownloadFailed(ex)
Return False
End Try
End Function
Public Function DownloadFileWithProgress(ByVal URL
As String, ByVal Location As String) As Boolean
Dim FS As FileStream
Try
mCurrentFile = GetFileName(URL)
Dim wRemote As WebRequest
Dim bBuffer As Byte()
ReDim bBuffer(256)
Dim iBytesRead As Integer
Dim iTotalBytesRead As Integer
FS = New FileStream(Location, FileMode.Create,
FileAccess.Write)
wRemote = WebRequest.Create(URL)
Dim myWebResponse As WebResponse =
wRemote.GetResponse
RaiseEvent FileDownloadSizeObtained
(myWebResponse.ContentLength)
Dim sChunks As Stream =
myWebResponse.GetResponseStream
Do
' Check if Stopped
If (mStopped) Then Exit Do
iBytesRead = sChunks.Read(bBuffer, 0, 256)
FS.Write(bBuffer, 0, iBytesRead)
iTotalBytesRead += iBytesRead
If myWebResponse.ContentLength <
iTotalBytesRead Then
RaiseEvent AmountDownloadedChanged
(myWebResponse.ContentLength)
Else
RaiseEvent AmountDownloadedChanged
(iTotalBytesRead)
End If
Loop While Not iBytesRead = 0
sChunks.Close()
FS.Close()
RaiseEvent FileDownloadComplete()
Return True
Catch ex As Exception
If Not (FS Is Nothing) Then
FS.Close()
FS = Nothing
End If
RaiseEvent FileDownloadFailed(ex)
Return False
End Try
End Function

[علیرضا مداح]

سلام دوست عزیز،
برای آپلود فایل به سرور FTP که نیاز به Authorization دارد ، میتوانید از متد UploadFile مربوط به کلاس My.Computer.Network استفاده نمایید ،
همچنین میتوانید از متد UploadFile مربوط به کلاس System.Net.WebClient نیز استفاده نمایید ، در این صورت باید پروپرتی Credentials مربوط به این کلاس را تنظیم نمایید که از نوع System.Net.NetworkCredential بوده و خود دارای 3 پروپرتی به نام های Domain ، Username ، Password میباشد ،/

[arash_vb]

دوست عزیز به عنوان تاپیک دقت کرده باشی نوشتم دریافت فایل!
پس download مد نظرمه...اگه ممکنه یک مثال بزارید

بسیار ممنونم