ＪｉｓからＳｈｉｆｔ-ＪＩＳに変換するには？

MATSU 2004-11-13 02:16:53 No: 117571

ＶＢ４でＪｉｓからＳｈｉｆｔ-ＪＩＳへ相互変換したいのですが教えていただけないでしょうか。

↓ここは見ています。
http://madia.world.coocan.jp/vb/vb_bbs2/200401_04010054.html

上記の過去ログはＶＢ６での方法ですが、ＶＢ４で同じ方法でやろうとするとエラーになってしまいます。
例えばＶＢ４では Stm.Open の引数が必須になっていますが、何をセットすればよいのかわかりません。引数（Source,Mode,Options,UserName,PassWord）

何をセットすればよいか教えていただけないでしょうか。
または、別の方法があれば教えてください。

よろしくお願いします。

魔界の仮面弁士 2004-11-15 19:02:05 No: 117572

> 例えばＶＢ４では Stm.Open の引数が必須になっていますが
VB4にてADOを使った事はありませんが…Optionalな引数が
必須項目になってしまうのですか? それは初耳です。φ(.. )

今回の場合、参照設定せずに、
  Dim Stm As Object
  Set Stm = CreateObject("ADODB.Stream")
  Stm.Type = 2
  Stm.Charset = "iso-2022-jp"
  Stm.Open
  Stm.LoadFromFile "C:\JIS.TXT"
  Dim B() As Byte
  Stm.Position = 0
  Stm.Type = 1
  B = Stm.Read()
だとどうでしょうか? 試していないので、保証はできませんけれども。

> Source,Mode,Options,UserName,PassWord
無理に全ての引数を渡すなら、こうなるのかな…? (未確認)
Stm.Open Array(, 1)(0), 0, adOpenStreamUnspecified, Empty, Empty