how to upload file to AS400 in vb.net

See more:

VB

AS400

Hi,

I tried to ftp upload a text file to AS400 and it keeps giving me error "The remote server returned an error: (501) Syntax error in parameters or arguments." I am not sure which parameter is wrong. It throws error at miRequest.GetRequestStream(). Any help will be greatly appreciated.



Here is my code

Dim miUri As New Uri("ftp://hostIpAddress/LIBname/filename")
        Dim mirequest As FtpWebRequest
        mirequest = DirectCast(Net.WebRequest.Create(miUri), FtpWebRequest)
        miRequest.Credentials = New Net.NetworkCredential(user, password)
        miRequest.KeepAlive = False
        miRequest.UseBinary = False
        miRequest.UsePassive = True
        miRequest.ContentLength = FileLen("C:\test.txt")

        miRequest.Method = Net.WebRequestMethods.Ftp.UploadFile

        Try
            Dim miStream As System.IO.Stream
            miStream = miRequest.GetRequestStream()
            Dim bFile() As Byte = System.IO.File.ReadAllBytes("C:\test.txt")
            miStream.Write(bFile, 0, bFile.Length)
            miStream.Close()
            miStream.Dispose()
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try