VB6のStrConv関数について (ID:113685)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 あれ、ちょっと変な事言いました。。 Dim b() As Byte Dim i As Long Dim ss As String ss = "ドキュメント" b = StrConv(ss, vbFromUnicode) Dim f As Long f = FreeFile Open "C:\Test1.txt" For Binary As #f Put #f, 1, b Close #f b = ss f = FreeFile Open "C:\Test2.txt" For Binary As #f Put #f, 1, b Close #f Test1がシフトJIS、Test2がUNICODEとなるはずです。