Dim strBasePath As String = "C:\"
Dim dirInputFileInfo As IO.FileInfo
Dim dirInputInfo As New IO.DirectoryInfo(strBasePath)
Dim dirInputFileArray As IO.FileInfo() = dirInputInfo.GetFiles()
For Each dirInputFileInfo In dirInputFileArray
Me.CheckedListBox1.Items.Add(dirInputFileInfo.Name)
Next