タイトル : Re: Unicode文字が含まれるパスのOpen 投稿日 : 2009/07/09(Thu) 14:02 投稿者 : 魔界の仮面弁士
> このOpenのパスにUnicode文字が含まれていると開けないと思うのですが、 'C:\[イ尓]好.TXT (C:\ニイハオ.TXT) Path = "C:\" & ChrW(&H4F60) & ChrW(&H597D) & ".TXT" のようなパスの事だとしたら、Open ステートメントでは無理ですね。 ただし、8+3 のショートファイル名経由であれば開けます。 > Openではない代替案でもあれば助かります。 (案1) FileSystemObject の OpenTextFile メソッド。 Set FSO = New Scripting.FileSystemObject Set TS = FSO.OpenTextFile(Path, ForReading) S = TS.ReadAll() TS.Close (案2) Stream の LoadFromFile メソッド。 Set Stm = New ADODB.Stream Stm.Type = adTypeText Stm.Charset = "Shift_JIS" Stm.Open Stm.LoadFromFile Path S = Stm.ReadText(adReadAll) Stm.Close (案3) CreateFileW API 関数。 |