거의 대부분의 어플리케이션이 bom 포함한 파일을 사용하는데!!!
왜!!!!
Bom 없는 파일로 달라고 하는건지!!!!
뭐 설명은 뒤로 하고
Dim objStream As Object '오브젝트를 선언
strPathName ="C:\AAA.xml" '파일 위치와 이름
Set objStream = CreateObject("ADODB.Stream") '오브젝트 생성
objStream.Charset = "UTF-8" '캐릭터셋 설정
objStream.Open '열기!!
objStream.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf 'xml 헤드에 쓰는건데 따옴표때문에 맨날 찾아서 붙여넣기 한다..ㅜ.ㅜ
objStream.WriteText "<AAA>" & vbCrLf '오브젝트에 글자쓰기!
Dim BinaryStream As Object '오브젝트를 선언
Set BinaryStream = CreateObject("adodb.stream")'오브젝트를 생성
BinaryStream.Type = 1
BinaryStream.Mode = 3
BinaryStream.Open
objStream.Position = 3 '쓰기 위치
'Strips BOM (붐없애기)
objStream.CopyTo BinaryStream ' 오브젝트스트림 내용을 바이너리스트림으로 복사
objStream.Flush
objStream.Close '오브젝트스트림 잘가~
BinaryStream.SaveToFile strPathName, 2 '저장
BinaryStream.Close '바이너리스트림도 할꺼 다했으니 잘강~
에 그러니까 objStream에 글자 쓸꺼 다 쓰고
붐을 제외한 것을 BinaryStream 에 카피 해서 쓰는 방식
와 겁니 해메였구나~