配列変数の値を順にLabelに表示していくには？ (ID:145412)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつもお世話になります。 マイドキュメント以下のファイルをすべて取得して、順にLabel2に表示していくプログラムを作っているのですが どうもうまくLabel2に表示できませんでした。 構文に誤りがありましたらご指導願います。 Public Sub GetAllFiles(ByVal folder As String, _ ByVal searchPattern As String, ByRef files As ArrayList) Dim myName As String myName = SystemInformation.UserName folder = "C:\Documents and Settings\" + myName + "\My Documents" 'folderにあるファイルを取得する Dim fs As String() = _ System.IO.Directory.GetFiles(folder, searchPattern) 'ArrayListに追加する files.AddRange(fs) 'folderのサブフォルダを取得する Dim ds As String() = System.IO.Directory.GetDirectories(folder) 'サブフォルダにあるファイルも調べる Dim d As String For Each d In ds GetAllFiles(d, searchPattern, files) Label2.Text = d.ToString '5秒（5000ミリ秒）待機する System.Threading.Thread.Sleep(1000 * 5) Next d End Sub