タイトル | : Re: Unicode文字が含まれるパスのOpen |
記事No | : 13830 |
投稿日 | : 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 関数。
|