在每一行的结束处使用CRLF

            '               Replace all End Of Line Delimiters with CRLF
            Dim newfile As New System.IO.StreamReader(CopySource & System.IO.Path.GetFileName(file))
            Dim data As String
            data = newfile.ReadToEnd()
            data = data.Replace(vbCrLf, vbLf)
            data = data.Replace(vbCr, vbLf)
            data = data.Replace(vbLf, vbCrLf)
            newfile.Close()

            Dim writer As New System.IO.StreamWriter(CopySource & System.IO.Path.GetFileName(file), False)
            writer.Write(data)
            writer.Flush()
            writer.Close()