append فایل

[m_zamani]

سلام

من میخوام دو تا فایل از نوع بایت رو با هم ادغام کنم . با دستور appendalltext فرمت فایل به هم میریزه . آیا دستور دیگه ای برای این کار هست؟

[علیرضا مداح]

سلام دوست عزیز ،
متد File.AppendAllText برای فایلهای متنی به کار میرود ، اما اگر شما میخواهید به طور مثال دو فایل صوتی را با هم ادغام کنیذ ، باید از کد زیر استفاده نمایید :


Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim f1Bytes As Byte() = File.ReadAllBytes("d:\\m1.mp3")
Dim f2Bytes As Byte() = File.ReadAllBytes("d:\\m2.mp3")
Dim newBytes(f1Bytes.Length + f2Bytes.Length) As Byte
f1Bytes.CopyTo(newBytes, 0)
f2Bytes.CopyTo(newBytes, f1Bytes.Length)
Dim newFile As FileStream = File.Create("d:\\newfile.mp3", f1Bytes.Length + f2Bytes.Length)
newFile.Write(newBytes, 0, newBytes.Length)
newFile.Close()
End Sub
End Class