Как скачать файл с FTP и загрузить его снова - PullRequest
Новая
       27

Как скачать файл с FTP и загрузить его снова

1 голос
/ 15 марта 2010

Мне нужно скачать файл с FTP-сервера, внести в него некоторые изменения и снова загрузить его на тот же FTP-сервер с помощью VB.NET.

Любая помощь, пожалуйста. Спасибо.

Ответы [ 2 ]

1 голос
/ 15 марта 2010
0 голосов
/ 12 октября 2017

Если вы хотите просто повторно загрузить файл, просто перенаправьте поток загрузки в поток загрузки: 

Dim downloadRequest As FtpWebRequest =
    WebRequest.Create("ftp://downloadftp.example.com/source/path/file.txt")
downloadRequest.Method = WebRequestMethods.Ftp.DownloadFile
downloadRequest.Credentials = New NetworkCredential("username1", "password1")

Dim uploadRequest As FtpWebRequest =
    WebRequest.Create("ftp://uploadftp.example.com/target/path/file.txt")
uploadRequest.Method = WebRequestMethods.Ftp.UploadFile
uploadRequest.Credentials = New NetworkCredential("username2", "password2")

Using downloadResponse As FtpWebResponse = downloadRequest.GetResponse(),
      sourceStream As Stream = downloadResponse.GetResponseStream(),
      targetStream As Stream = uploadRequest.GetRequestStream()
    sourceStream.CopyTo(targetStream)
End Using

Если вам нужно каким-то образом обрабатывать содержимое, или если вам нужно отслеживать ход выполнения, или и то, и другое, вы должны делать это по частям (или, возможно, построчно, если это текстовый файл, который вы обрабатываете) ): 

Dim downloadRequest As FtpWebRequest =
    WebRequest.Create("ftp://downloadftp.example.com/source/path/file.txt")
downloadRequest.Method = WebRequestMethods.Ftp.DownloadFile
downloadRequest.Credentials = New NetworkCredential("username1", "password1")

Dim uploadRequest As FtpWebRequest =
    WebRequest.Create("ftp://uploadftp.example.com/target/path/file.txt")
uploadRequest.Method = WebRequestMethods.Ftp.UploadFile
uploadRequest.Credentials = New NetworkCredential("username2", "password2")

Using downloadResponse As FtpWebResponse = downloadRequest.GetResponse(),
      sourceStream As Stream = downloadResponse.GetResponseStream(),
      targetStream As Stream = uploadRequest.GetRequestStream()
    Dim buffer As Byte() = New Byte(10240 - 1) {}
    Dim read As Integer
    Do
        read = sourceStream.Read(buffer, 0, buffer.Length)
        If read > 0 Then
            ' process "buffer" here
            targetStream.Write(buffer, 0, read)
        End If
    Loop While read > 0
End Using

Смотри также:

...