VBレスキュー(花ちゃん)の Visual Basic 6.0用掲示板

タイトル： 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 関数。

- 関連一覧ツリー （

をクリックするとツリー全体を一括表示します）

Unicode文字が含まれるパスのOpen

みなな

No.13829

Re: Unicode文字が含まれるパスのOpen - 魔界の仮面弁士 09/07/09-14:02 No.13830
- Re^2: Unicode文字が含まれるパスのOpen - みなな 09/07/09-18:01 No.13833
- Re^2: Unicode文字が含まれるパスのOpen - みなな 09/07/12-02:00 No.13837

タイトル	： Re: Unicode文字が含まれるパスのOpen
投稿日	： 2009/07/09(Thu) 14:02
投稿者	：魔界の仮面弁士

古いスレッドにレスはつけられません。