Getting Directory Contents List

Dim strBaseXmlDIR = ConfigurationSettings.AppSettings("BaseXmlDIR")
Dim strXMLFileName As String

Dim objDirectoryInfo As New IO.DirectoryInfo(strBaseXmlDIR)
Dim objFileInfo As IO.FileInfo() = objDirectoryInfo.GetFiles()
Dim objFileInfoElement As IO.FileInfo

For Each objFileInfoElement In objFileInfo
strXMLFileName = strBaseXmlDIR + "\" + objFileInfoElement.ToString()
ListBox1.Items.Add(strXMLFileName)
Next