在VB.NET中，ftp上傳多個文件的最佳方式是什麼？

Question

我是一名VB程序員。

我正在創建一個桌面應用程序，用戶通過ftp將某些文件上載到服務器。

這些文件都位於本地的同一文件夾中，並上傳到服務器上的同一文件夾中。

通過momment我與此代碼的工作：

For Each File As String In My.Computer.FileSystem.GetFiles(_ 
            path, _ 
            FileIO.SearchOption.SearchAllSubDirectories, _ 
            "*.jpg") 
    Dim fileInf As IO.FileInfo = New IO.FileInfo(File) 
    Dim uri As String = serveruri 
    Dim reqFTP As Net.FtpWebRequest 
    reqFTP = Net.FtpWebRequest.Create(New Uri(uri)) 
    reqFTP.Credentials = New Net.NetworkCredential(user, pass) 
    reqFTP.KeepAlive = False 
    reqFTP.Method = Net.WebRequestMethods.Ftp.UploadFile  
    reqFTP.UseBinary = True 
    reqFTP.ContentLength = fileInf.Length 
    Dim buffLength As Integer = 2048 
    Dim buff(buffLength) As Byte 
    Dim contentLen As Integer 
    Dim fs As IO.FileStream = fileInf.OpenRead() 
    Dim strm As IO.Stream = reqFTP.GetRequestStream() 
    contentLen = fs.Read(buff, 0, buffLength) 
    While Not (contentLen = 0) 
     strm.Write(buff, 0, contentLen) 
     contentLen = fs.Read(buff, 0, buffLength) 
    End While 
    strm.Close() 
    fs.Close()   
Next 

有了這個代碼，我通過一個上傳一個文件，但總花費的時間是太大了。

我如何減少花費總時間？

我曾想過用線程來做或異步上傳文件，但我找不到任何如何做的例子。

謝謝！

Answer 1

我們使用此代碼以異步方式做類似的工作：

w = New System.Net.WebClient 

     w.Credentials = New Net.NetworkCredential(username, Password) 

     w.UploadFileAsync(New System.Uri("ftp://ftp.yourdomain/yourfilename"), bupath) 

Answer 2

用戶我的FTP類

Public Class FTP 
     '-------------------------[BroCode]-------------------------- 
     '----------------------------FTP----------------------------- 
     Private _credentials As System.Net.NetworkCredential 
     Sub New(ByVal _FTPUser As String, ByVal _FTPPass As String) 
      setCredentials(_FTPUser, _FTPPass) 
     End Sub 
     Public Sub UploadFile(ByVal _FileName As String, ByVal _UploadPath As String) 
      Dim _FileInfo As New System.IO.FileInfo(_FileName) 
      Dim _FtpWebRequest As System.Net.FtpWebRequest = CType(System.Net.FtpWebRequest.Create(New Uri(_UploadPath)), System.Net.FtpWebRequest) 
      _FtpWebRequest.Credentials = _credentials 
      _FtpWebRequest.KeepAlive = False 
      _FtpWebRequest.Timeout = 20000 
      _FtpWebRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile 
      _FtpWebRequest.UseBinary = True 
      _FtpWebRequest.ContentLength = _FileInfo.Length 
      Dim buffLength As Integer = 2048 
      Dim buff(buffLength - 1) As Byte 
      Dim _FileStream As System.IO.FileStream = _FileInfo.OpenRead() 
      Try 
       Dim _Stream As System.IO.Stream = _FtpWebRequest.GetRequestStream() 
       Dim contentLen As Integer = _FileStream.Read(buff, 0, buffLength) 
       Do While contentLen <> 0 
        _Stream.Write(buff, 0, contentLen) 
        contentLen = _FileStream.Read(buff, 0, buffLength) 
       Loop 
       _Stream.Close() 
       _Stream.Dispose() 
       _FileStream.Close() 
       _FileStream.Dispose() 
      Catch ex As Exception 
       MessageBox.Show(ex.Message, "Upload Error: ", MessageBoxButtons.OK, MessageBoxIcon.Error) 
      End Try 
     End Sub 
     Public Sub DownloadFile(ByVal _FileName As String, ByVal _ftpDownloadPath As String) 
      Try 
       Dim _request As System.Net.FtpWebRequest = System.Net.WebRequest.Create(_ftpDownloadPath) 
       _request.KeepAlive = False 
       _request.Method = System.Net.WebRequestMethods.Ftp.DownloadFile 
       _request.Credentials = _credentials 
       Dim _response As System.Net.FtpWebResponse = _request.GetResponse() 
       Dim responseStream As System.IO.Stream = _response.GetResponseStream() 
       Dim fs As New System.IO.FileStream(_FileName, System.IO.FileMode.Create) 
       responseStream.CopyTo(fs) 
       responseStream.Close() 
       _response.Close() 
      Catch ex As Exception 
       MessageBox.Show(ex.Message, "Download Error: ", MessageBoxButtons.OK, MessageBoxIcon.Error) 
      End Try 
     End Sub 
     Public Function GetDirectory(ByVal _ftpPath As String) As List(Of String) 
      Dim ret As New List(Of String) 
      Try 
       Dim _request As System.Net.FtpWebRequest = System.Net.WebRequest.Create(_ftpPath) 
       _request.KeepAlive = False 
       _request.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails 
       _request.Credentials = _credentials 
       Dim _response As System.Net.FtpWebResponse = _request.GetResponse() 
       Dim responseStream As System.IO.Stream = _response.GetResponseStream() 
       Dim _reader As System.IO.StreamReader = New System.IO.StreamReader(responseStream) 
       Dim FileData As String = _reader.ReadToEnd 
       Dim Lines() As String = FileData.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries) 
       For Each l As String In Lines 
        ret.Add(l) 
       Next 
       _reader.Close() 
       _response.Close() 
      Catch ex As Exception 
       MessageBox.Show(ex.Message, "Directory Fetch Error: ", MessageBoxButtons.OK, MessageBoxIcon.Error) 
      End Try 
      Return ret 
     End Function 

     Private Sub setCredentials(ByVal _FTPUser As String, ByVal _FTPPass As String) 
      _credentials = New System.Net.NetworkCredential(_FTPUser, _FTPPass) 
     End Sub 
    End Class