葉月さん、丁寧な説明ありがとうございます。

言われるように再度確認すると、TextBox1にドライブの指定だと以下のメッセージが表示。

”unauthorized access axceptionはハンドルされませんでした。とダイアログが出て
パス 'c:\System Volume Information' へのアクセスが拒否されました。”

ディレクトリーまで指定すれば問題なく動作確認。

ただし、ファイルがないときのメッセージや処理ファイル数の表示はカウントされないですね。

”ArrayListに格納してからAddRangeでまとめて処理しました。
こうすることでコードがシンプルになり処理も向上します。

■サンプル
Me.ListBox1.BeginUpdate()
Me.ListBox1.Items.AddRange(arFiles.ToArray())
Me.ListBox1.EndUpdate ”

を参考に再度コードをやり直して、アップします。