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 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94
| Imports System.Net
Imports System.IO
Public Class clsFTP
Public Function FTP_Upload(ByVal Source As String, ByVal dest As String, ByVal User As String, ByVal Pass As String) As Boolean
Try
Dim request As FtpWebRequest = DirectCast(WebRequest.Create(dest), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.UploadFile
request.KeepAlive = False
request.Credentials = New NetworkCredential(User, Pass)
Dim sourceStream As FileStream = File.OpenRead(Source)
Dim fileContents As Byte() = New Byte(sourceStream.Length) {}
sourceStream.Read(fileContents, 0, fileContents.Length)
sourceStream.Close()
request.ContentLength = fileContents.Length
Dim requestStream As Stream = request.GetRequestStream()
requestStream.Write(fileContents, 0, fileContents.Length)
requestStream.Close()
Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
Dim codeMessage As Integer = Convert.ToInt32(response.StatusCode)
response.Close()
FTP_Upload = True
Catch ex As Exception
FTP_Upload = False
End Try
End Function
Public Function FTP_Dowload(ByVal Source As String, ByVal Dest As String, ByVal User As String, ByVal Pass As String) As Boolean
Try
Dim request As FtpWebRequest = DirectCast(WebRequest.Create(Source), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.DownloadFile
request.Credentials = New NetworkCredential(User, Pass)
Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
Dim responseStream As Stream = response.GetResponseStream()
Dim writeStream As New FileStream(Dest, FileMode.Create)
Dim Length As Integer = 2048
Dim buffer As Byte() = New Byte(Length) {}
Dim bytesRead As Integer = responseStream.Read(buffer, 0, Length)
While bytesRead > 0
writeStream.Write(buffer, 0, bytesRead)
bytesRead = responseStream.Read(buffer, 0, Length)
End While
responseStream.Close()
writeStream.Close()
Dim codeMessage As Integer = Convert.ToInt32(response.StatusCode)
response.Close()
FTP_Dowload = True
Catch ex As Exception
FTP_Dowload = False
End Try
End Function
Public Function FTP_Del(ByVal FileToDel As String, ByVal User As String, ByVal Pass As String) As Boolean
Dim request As FtpWebRequest = DirectCast(WebRequest.Create(FileToDel), FtpWebRequest)
Try
request.Method = WebRequestMethods.Ftp.DeleteFile
request.Credentials = New NetworkCredential(User, Pass)
Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
Dim codeMessage As Integer = Convert.ToInt32(response.StatusCode)
response.Close()
ftp_Del = True
Catch ex As Exception
ftp_Del = False
End Try
End Function
End Class |
Partager