何がしたいのか知らんけど、BOM付きで保存したいならFileOpen()でエンコーディングを指定すればいい

File := FileOpen("a.txt", "r")
Enc := File.Encoding
Len := File.Length
VarSetCapacity(Buf, Len, 0)
Len := File.RawRead(Buf, Len)
File.Close()

File := FileOpen("b.txt", "w", Enc)
File.RawWrite(Buf, Len)
File.Close()