0

我编写了一段代码只是为了测试将 ASCII 类型的 txt 文件发送到 FTP 服务器，但不断收到以下错误。

远程服务器返回错误：(501) 参数或参数中的语法错误。

我确定用户名和密码是正确的，我尝试将 UsePassive 设置为 true 和 false，但得到相同的错误。

以下是我使用的代码。

Imports System.IO
Imports System.Text
Imports System.Net

Module Module1

Sub Main()
    Dim lPOSByteArray() As Byte
    Dim lEncoding As New ASCIIEncoding
    Dim lPOSFlatFile As String
    lPOSFlatFile = System.IO.File.ReadAllText("C:\\Users\\somebody\\Desktop\\Test.config.XML")
    lPOSByteArray = lEncoding.GetBytes(lPOSFlatFile)

    Dim lFTPrequest As System.Net.FtpWebRequest

    lFTPrequest = DirectCast(WebRequest.Create("ftp://" & "199.222.111.111" & "/" & "Test.txt"), System.Net.FtpWebRequest)
    lFTPrequest.Proxy = Nothing
    lFTPrequest.Credentials = New NetworkCredential("userxxx", "passyyy")
    lFTPrequest.Method = WebRequestMethods.Ftp.UploadFile
    lFTPrequest.UseBinary = False
    lFTPrequest.UsePassive = True
    lFTPrequest.ContentLength = lPOSByteArray.Length

    'ERROR happened on following line
    Dim lFTPrequestStream As Stream = lFTPrequest.GetRequestStream()
    lFTPrequestStream.Write(lPOSByteArray, 0, lPOSByteArray.Length)
    lFTPrequestStream.Close()

    Dim response As System.Net.FtpWebResponse = DirectCast(lFTPrequest.GetResponse(), System.Net.FtpWebResponse)

End Sub

端模块

4

1 回答 1

0

我认为您的代码是正确的。问题出在其他地方，例如网络或 ftp 服务器。我尝试使用我的 FTP 服务器并更改了线路

 lPOSByteArray = lEncoding.GetBytes(lPOSFlatFile)

到

 lPOSByteArray = lEncoding.GetBytes("test")

并且工作正常。你能用像 FileZila 这样的 ftp 客户端读/写这个文件吗？

于 2012-08-14T16:36:38.090 回答