1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
| Public Shared Function FTP_2_FS( _
ByVal FTPURL As String, _
ByVal UserName As String, _
ByVal Password As String, _
ByVal DestinationDir As String, _
ByVal FileName As String) As String
Dim myFtpWebRequest As System.Net.FtpWebRequest
Dim myStreamWriter As System.IO.StreamWriter
myFtpWebRequest = System.Net.WebRequest.Create(FTPURL + "/" + FileName)
If UserName <> "" Then
myFtpWebRequest.Credentials = New System.Net.NetworkCredential(UserName, Password)
End If
myFtpWebRequest.Method = System.Net.WebRequestMethods.Ftp.DownloadFile
myFtpWebRequest.UseBinary = True
Dim myFtpWebResponse As System.Net.FtpWebResponse
Try
myFtpWebResponse = myFtpWebRequest.GetResponse()
Catch ex As Exception
Dim sz As String= "Error: ftp_2_fs - Get Response - "
sz += ex.Message
Return sz
End Try
'myStreamWriter = New StreamWriter(Server.MapPath("filename.ext"))
myStreamWriter = New System.IO.StreamWriter(DestinationDir + "\" + FileName)
myStreamWriter.Write(New System.IO.StreamReader(myFtpWebResponse.GetResponseStream()).ReadToEnd)
myStreamWriter.Close()
Dim results As String= myFtpWebResponse.StatusDescription
myFtpWebResponse.Close()
Return results
End Function
|