Отображения файлов в CheckedListBox - VB

Формулировка задачи:

Здравствуйте. Не судите меня строго, так как изучением программирования на VB (да и вообще программированием) я занимаюсь всего два дня. (жизнь заставила) Помогите решить мне одну задачу с CheckedListBox1 под VB2008(2005) В окне формы есть элементы: 1. "кнопка"-вызывает диалог - "FolderBrowserDialog1", 2."TextBox1" - в котором отображается путь к папке, 3. сам "CheckedListBox1" и 4. "кнопка2" - которая должна загрузить отмеченные файлы в заданную директорию. Первые две функции я решил без проблем. Теперь мне необходимо чтобы при выборе папки, в CheckedListBox1 отражались имена с расширениями, всех файлов находящихся в этой папке, соответственно после выбора необходимых файлов, нажатием кнопки2 копируем (загружаем), в заранее указанную директорию. P.S. Если в форуме уже есть конкретный пример, то дайте пожалуйста ссылку(хотя по поиску я ни чего не нашел).

Решение задачи: «Отображения файлов в CheckedListBox»

textual
                            Листинг программы 
                        

                            Imports System.IO
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sFile As String
        sFile = Dir(TextBox1.Text & "*.*")
        Do While sFile <> ""
            CheckedListBox1.Items.Add(sFile)
            sFile = Dir()
        Loop
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim iChecked As Integer
        If (TextBox1.Text <> "") And (TextBox1.Text <> "") Then
            For Each iChecked In CheckedListBox1.CheckedIndices
                If File.Exists(TextBox1.Text & CheckedListBox1.Items.Item(iChecked)) Then FileCopy(TextBox1.Text & CheckedListBox1.Items.Item(iChecked), TextBox2.Text & CheckedListBox1.Items.Item(iChecked))
            Next
        End If
    End Sub
End Class
                        