タイトル : 解決しました。 投稿日 : 2009/02/20(Fri) 13:33 投稿者 : 王鵬
魔界の仮面弁士さん ご指導が有難うございます。 やばり、縺ゅ≠.txtはSJISのコードです。 SJISのコードを読み出して、このコードでUTF-8に変換しました。 解決方法 @modADOS.basを作ります。 ----------------------------------------------------- 下記サイトのコードを無断転載されておられるようなので 削除依頼をしましたが、ご覧になっておられないようなので 勝手ながら削除させて頂きます。 管理人 投稿されたコード http://homepage2.nifty.com/nonnon/SoftSample/VB.NET/SampleModADOS.html ----------------------------------------------------- AmodADOSの関数を使います。 dim sStr as String sStr = ADOS_Decode_UTF8(ADOS_Encode_SJIS("縺ゅ≠.txt")) 結果は sStr ="ああ.txt" |