2012-02-23 164 views
0

我使用任何第三方工具FTP文件传输

这是我的代码中使用vb.net从远程计算机上的文件传输到本地机器了编写代码

Dim reqFTP As FtpWebRequest 
    Dim filepath As String 
    Dim filename As String 
    Dim filename1 As String 
    Dim ftpserverip As String 
    Dim ftpuserid As String 
    Dim ftpPassword As String 
    Try 
     filename1 = TxtRemoteFile.Text 
     filepath = TxtLocalFile.Text 
     filename = Locfname.Text 
     ftpserverip = TxtServerIP.Text 
     ftpuserid = TxtUserName.Text 
     ftpPassword = TxtPwd.Text 
     Dim outputStream As FileStream = New FileStream((filepath + ("\\" + filename)), FileMode.Create) 
     reqFTP = CType(FtpWebRequest.Create(New Uri(("ftp://" _ 
          + (ftpserverip + ("/" + filename1))))), FtpWebRequest) 
     reqFTP.Method = WebRequestMethods.Ftp.DownloadFile 
     reqFTP.UseBinary = True 
     reqFTP.Credentials = New NetworkCredential(ftpuserid, ftpPassword) 
     Dim response As FtpWebResponse = CType(reqFTP.GetResponse, FtpWebResponse) 

     outputStream.Close() 

    Catch ex As Exception 
     MessageBox.Show(ex.Message) 
    End Try 

,但我得到的错误,如”远程服务器返回错误:(550)网络

+0

你确定你在ftp服务器上有写权限吗? – 2012-02-23 08:46:00

+0

我会打开'关于所有错误',并查看哪条线路出现故障。另外:550错误是来自服务器的消息,指出您当前登录的帐户没有执行您尝试执行的操作的权限。 – 2012-02-23 09:47:01

回答

0

我有同样的问题,我不包括在远程路径的httpdocs 例: ftp://ftp.websitename.com/httpdocs/filenametocopy.txt

System.Net.WebRequest.Create("ftp://ftp.websitename.com/httpdocs/filenametocopy.txt") 

权限被拒绝,因为我试图将文件写入根目录之外。

+0

'filenametocopy.txt'在该路径不可用。 – Neolisk 2012-10-26 23:44:41