Как ввести в Combobox названия файлов из папки?

Process.Start(Место где находиться файл )

Process.Start(My.Resources.Имя файла)

For Each foundFile As String In My.Computer.FileSystem.GetFiles _
(адрес расположения файлов)
    comboBox1.Items.Add(foundFile)
Next

  For Each foundFile As String In System.IO.Directory.GetFiles(имя папки)
 
            ComboBox1.Items.Add(foundFile)

Dim OFD As New OpenFileDialog
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim FI As New IO.FileInfo(OFD.FileName)
            MsgBox("Full Name: " & FI.FullName)
            MsgBox("Short Name: " & FI.Name)
            MsgBox("Extension: " & FI.Extension)
            MsgBox("Name without Extension: " & System.IO.Path.GetFileNameWithoutExtension(FI.FullName))
        End If

Public Class Form1
    Dim Pth As String = "D:\SAMSUNG\Корел\"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim D = IO.Directory.GetFiles(Pth, "*.jpg")
        For Each F As String In D
            ComboBox1.Items.Add(System.IO.Path.GetFileNameWithoutExtension(F))
        Next
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Process.Start(Pth & ComboBox1.SelectedItem & ".jpg")
    End Sub
End Class