Visual Basic : FTP 다운로드

Question

다른 코드를 시도했지만 그 중 일부는 예제 DriveHQ에서 파일을 다운로드 할 수 없습니다.

하지만 호스트가 정상적으로 보이도록 업로드 할 수 있습니다.

sub() 
    GetFile("downloadme.txt", "DESKTOP") 
    End Sub 

    Public Function GetFile(ByVal Name As String, ByVal DestFile As String) As Boolean 
     Dim oFTP As FtpWebRequest = CType(FtpWebRequest.Create("ftp://ftp.drivehq.com/" & "" & Name), FtpWebRequest) 
     oFTP.Credentials = New NetworkCredential("user", "passw") 
     oFTP.Method = WebRequestMethods.Ftp.DownloadFile 
     oFTP.KeepAlive = KeepAlive 
     ' oFTP.EnableSsl = UseSSL 
     ' If UseSSL Then ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateServerCertificate) 
     oFTP.UseBinary = True 
     Dim response As FtpWebResponse = CType(oFTP.GetResponse, FtpWebResponse) 
     Dim responseStream As Stream = response.GetResponseStream 
     Dim fs As New FileStream(DestFile, FileMode.Create) 
     Dim buffer(2047) As Byte 
     Dim read As Integer = 1 
     While read <> 0 
      read = responseStream.Read(buffer, 0, buffer.Length) 
      fs.Write(buffer, 0, read) 
     End While 
     responseStream.Close() 
     fs.Flush() 
     fs.Close() 
     responseStream.Close() 
     response.Close() 
     oFTP = Nothing 
     Return True 
    End Function 

    Public Function ValidateServerCertificate(ByVal sender As Object, ByVal certificate As X509Certificate, ByVal chain As X509Chain, ByVal sslPolicyErrors As SslPolicyErrors) As Boolean 
     If sslPolicyErrors = sslPolicyErrors.RemoteCertificateChainErrors Then 
      Return False 
     ElseIf sslPolicyErrors = sslPolicyErrors.RemoteCertificateNameMismatch Then 
      Dim z As System.Security.Policy.Zone = System.Security.Policy.Zone.CreateFromUrl(CType(sender, HttpWebRequest).RequestUri.ToString) 
      If z.SecurityZone = System.Security.SecurityZone.Intranet Or z.SecurityZone = System.Security.SecurityZone.MyComputer Then 
       Return True 
      End If 
      Return False 
     End If 
     Return True 
    End Function 

// 사이먼

Answer 1

는 오류 메시지를 받고, 아니면 단지 당신이 할 기대하지 않는 * EDIT? FileStream을 만들고이를 DESKTOP이라는 파일로 지정하면 실제로 의도했던 것입니까 아니면이 예입니까?