Hi Jacky
Thanks for your information. I am not show where shall I use the streamwriter? Because I am trying to upload a file with chinese file name, I am not sure If i can use streamwrite to a ftp server.
Another question, after I read the article, I just realise I have the same problem as the author, Which is not be able to display chinese character when I try to retrieve the directory from the FTP server.
They have provided a solution which is to set the encoding. I tried UTF8 and ASCII, unfortunately, they do not work on my application. When I use unicode, it throw exception.
<<Cannot access a disposed object.
Object name: 'System.Net.Sockets.NetworkStream'.>>
Could you let me know what encoding shall I use?
Here it is the code for my upload function.
Code Snippet
Public Function UploadFile(ByVal filename As String) As Boolean
Dim result As Boolean = False
Dim fInfo As New FileInfo(filename)
Dim myFTP As FtpWebRequest
myFTP = FtpWebRequest.Create(New Uri(FTPAddress + "/" + fInfo.Name))
myFTP.UseBinary = True
myFTP.Credentials = New NetworkCredential(FTPUsername, FTPPW)
myFTP.KeepAlive = False
myFTP.Method = WebRequestMethods.Ftp.UploadFile
myFTP.ContentLength = fInfo.Length
Dim bufferLength As Int32 = 2048
Dim contentLen As Int32 = 0
Dim buffer(bufferLength) As Byte
Dim fStream As FileStream
fStream = fInfo.OpenRead
Try
Dim responseStream As Stream
responseStream = myFTP.GetRequestStream
contentLen = fStream.Read(buffer, 0, bufferLength)
While (contentLen <> 0)
responseStream.Write(buffer, 0, contentLen)
contentLen = fStream.Read(buffer, 0, bufferLength)
End While
responseStream.Close()
fStream.Close()
result = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return result
End Function
Could you give me some suggestion about how could I Upload a file with Chinese Filename.
Thanks in advance.
