Dim thing As String
Dim folder As String
Dim Files2Open As Array
Dim row As Integer
row = 0
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
folder = OpenFileDialog1.FileName.Substring(0, _
OpenFileDialog1.FileName.LastIndexOf("\") + 1)
Files2Open = Directory.GetFiles(folder)
For Each thing In Files2Open
DataGridView1.Rows.Add()
DataGridView1.Item(0, row).Value = thing
row = row + 1
Next
End If