Dim fs As New FileStream("c:\f.txt", FileMode.OpenOrCreate, FileAccess.ReadWrite) fs.Seek(0, SeekOrigin.End) fs.Write(dataBuf, 0, dataBuf.Length) fs.Close() 转载于:https://www.cnblogs.com/webcool/archive/2006/01/09/314151.html