Sub loadfile() Dim file_name As String Dim file_list As String For Each file_name As String In My.Computer.FileSystem.GetFiles("C:\あ", FileIO.SearchOption.SearchAllSubDirectories, "*.txt") filelist(file_name.Length) = file_name Next ListBox1.Items.Add(file_list) End Sub を実行しようとすると エラー 1 変数 'file_name' は、それを囲むブロック内の変数を非表示にします。 エラー 2 プロパティ 'Chars' は 'ReadOnly' です。 と出てきてしまいます 呼び出し元は Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = "読み込み中..."
>>473 >'file_name'の何がいけないの？ 二度宣言している。 > Dim file_name As String > For Each file_name As String file_name を For Each の外でも使うつもりなら For Each の As String を削除、 そうでないなら Dim の方を削除。