For i = 1 To 2 Step 1
            Dim oradb As String = "Data Source=jamocs;User Id=ocs;Password=_ocs;"
            Dim conn As New OracleConnection(oradb)
            Dim filename1 As String
            filename1 = IO.File.ReadAllText("C:\test\[color=green]test[/color]" & i & ".txt") ' но тут вместо слово test может быть любое название
            conn.Open()
            Dim cmd As New OracleCommand
            cmd.Connection = conn
            cmd.CommandType = CommandType.Text
            cmd.CommandText = ("insert into msg.testvb (test) VALUES (:filename)")
            cmd.Parameters.Add("filename1", OracleDbType.Clob).Value = filename1
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            conn.Dispose()
        Next i

Imports System
Imports System.IO

Public Class Form1
Inherits System.Windows.Forms.Form

Windows Form Designer generated code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Dim Folder As Directory ' тут ругается пишет неиспользуемая локальная переменная
Dim Files() As String ' тут тоже неиспользуемая локальная переменная
Dim i As Integer

Label1.Text = ""' Очищаем текст в метке

Files = Folder.GetFiles("c:")' В массив Files записываются все файлы содержащиеся в диске C:

For i = 0 To Files.Length - 1' Массив длится столько, сколько файлов в диске C:
Label1.Text = Label1.Text & Files(i) & vbCrLf' Извлекаем из массива Files имена всех файлов, и записываем их в метку. Функция vbCrLf нужна для перевода строки
Next i

End Sub 
End Class 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ' make a reference to a directory
    Dim di As New IO.DirectoryInfo("c:\")
    Dim diar1 As IO.FileInfo() = di.GetFiles()
    Dim dra As IO.FileInfo  ' неиспользуемая локальная переменная

   'list the names of all files in the specified directory
    For Each dra In diar1
        ListBox1.Items.Add(dra)
    Next
End Sub

      
        Dim di As New IO.DirectoryInfo("c:\test")
        Dim diar1 As IO.FileInfo() = di.GetFiles()
        Dim dra As IO.FileInfo
        ' Dim i As Integer

        'For i = 1 To 2 Step 1
        For Each dra In diar1
            Dim oradb As String = "Data Source=jamocs;User Id=ocs;Password=_ocs;"
            Dim conn As New OracleConnection(oradb)
            Dim filename1 As String
            'filename1 = IO.File.ReadAllText("C:\test\dra" & i & ".txt")
            filename1 = IO.File.ReadAllText("C:\test\" & dra & ".txt")   'оператор & для подтипов string и system.io.fileinfo не определен
            conn.Open()
            Dim cmd As New OracleCommand
            cmd.Connection = conn
            cmd.CommandType = CommandType.Text
            cmd.CommandText = ("insert into msg.testvb (test) VALUES (:filename)")
            cmd.Parameters.Add("filename1", OracleDbType.Clob).Value = filename1
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            conn.Dispose()
        Next dra