はじめまして
VB６を使っています。
ハードディスク内にあるテキスト"C:\File\date.txt"をコマンドボタンを押してリストボックスに表示したいのです。
その際にはRecord(30)というような一次元配列に代入し、リストボックスに表示する際にはRecord(30)の一次元配列を利用します。
ファイルを１行１行読み込む際、文字列が入っていない行があればファイルを読み込むことを終わります。ファイルが存在しないなどのエラーがある場合は「ファイルがありません」というメッセージボックスが表示するようにしたいのです。

とりあえずまずくてもこんなコードを書いてみましたが・・・


Option Explicit '変数の宣言を強制する
'変数を宣言する
Private strRecord(30) As String 'データを格納する配列
Private intGyo As Integer 'データの行数
Private intKensu As Integer '登録件数
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・

Private Sub cmd_Fileread_Click()


'ファイルが存在するかどうかをチェックする
If Dir("C:\File\date.txt") = "" Then

'ファイルが存在しない場合メッセージボックスを表示する
MsgBox "ファイルが読み込めません"

Else