| 投稿日 | ： 2005/07/04(Mon) 19:16 |
| 投稿者 | ： K.J.K. |
| Ｅメール | ： akiya@koalanet.ne.jp |
| ＵＲＬ | ： |
| タイトル | ： Re: リッチテキストボックスでのファイル読込 |
エラー処理を抜きにすれば、
Dim iFile As Integer
Dim iLength As Long
Dim abBuffer() As Byte
iFile = FreeFile
Open FileName For Binary Access Read As iFile
iLength = LOF(iFile)
ReDim abBuffer(0& To iLength - 1&)
Get iFile, , abBuffer
Close iFile
Text1.Text = StrConv(abBuffer, vbUnicode)
のような感じでは。
# 直打ちなので、ミスがあるかも。
しかしまぁ、サイズが大きいときには勧められない読み込み方ですね。