Recursive Search problem

See more:

VB

Hi,
I have the following function that does a recursive search and adds all files to a list box. But when I hit a file that has no extension I get an error. I can't add the extension as its on a DVD. Does anyone know how I can solve this

Here is the function

Private Function RecursiveSearch(ByVal path As String) As Boolean
        Dim dirInfo As New IO.DirectoryInfo(path)
        Dim fileObject As FileSystemInfo
        For Each fileObject In dirInfo.GetFileSystemInfos()
            If (fileObject.Attributes And FileAttributes.Directory) = FileAttributes.Directory Then
                RecursiveSearch(fileObject.FullName)
            Else
                Me.lstDirectory.Items.Add(fileObject.FullName)
            End If
        Next
        Return True
    End Function