掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ファイルの中身をすべて得たい (ID：82714)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Dim inFno As Long Dim inFpath As String Dim BytData() As Byte Dim BytSize As Long Dim Str As String inFpath = "該当ファイル" inFno = FreeFile Open inFpath For Binary Access Read As #inFno BytSize = LOF(inFno) - 1 ReDim BytData(BytSize) As Byte Get #inFno, , BytData() Close #inFno Str = StrConv(BytData(), vbUnicode) ---------------------------------------------------- ＞それをStringか、もしくはバッファに格納したいのですが、 Stringというのが、VBのUNICODE型の文字列データを指していて、読み込み元がSjisのテキストファイルであるなばらこんな感じです。 単なるbyte配列として取り出したいだけなら最後の行はいりません。 （ByteData()にファイル内容が格納される。）
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.