Sub file_get()
Dim folderPath As String = "C:\Users\sannp\Desktop\指定フォルダ" ' 指定フォルダのパスを設定
Dim csvFiles() As String = Directory.GetFiles(folderPath, "*.csv")
Dim targetFileName As String = "Book1.csv"
Dim targetData As New List(Of String)() ' データを格納するリスト
Dim i As Integer
For Each csvFile As String In csvFiles
If Path.GetFileName(csvFile) = targetFileName Then
' 対象のCSVファイルを見つけた場合
Using reader As New StreamReader(csvFile)
While Not reader.EndOfStream
Dim line As String = reader.ReadLine()
' データをリストに追加
targetData.Add(line)
i = i + 1
End While
End Using
End If
Next
' データを配列に変換
Dim dataArray As String() = targetData.ToArray()
TextBox1.Text = dataArray(1)
End Sub