'SavePath = File.DirRootExternal & "/UpJpgToFTP"
Dim outStream As OutputStream
Dim txtWrite As TextWriter
outStream = File.OpenOutput(SavePath,"Test.txt",True)
txtWrite.Initialize2(outStream,"BIG5") '編碼
txtWrite.WriteLine(EditText1.text & Chr(13))
txtWrite.Flush
txtWrite.Close
outStream.Close