For VB6 we had to switch to a ListView in place of FileList to get a solution ... here's the code:
Code:
    ' get the list of excluded files
Private Sub GetExcludedFiles(ByVal fileSelFile As ListView)
    Dim i As Long, names() As String
        names() = GetFiles("*.*")
        For i = 1 To UBound(names)
          tmp2 = LCase$(GetExtension(names(i)))
          If Not ((tmp2 = "exe") Or (tmp2 = "exp") Or (tmp2 = "obj") _
            Or (tmp2 = "for") Or (tmp2 = "lst") Or (tmp2 = "xmp") Or (tmp2 = "sld") _
            Or (tmp2 = "fc") Or (tmp2 = "fc0") Or (tmp2 = "graf") Or (tmp2 = "demo") _
            Or (tmp2 = "inc") Or (tmp2 = "bat") Or (tmp2 = "ktl") Or (tmp2 = "eer") _
            Or (tmp2 = "doc") Or (tmp2 = "rtf") Or (tmp2 = "jpg") Or (tmp2 = "gif") _
            ) Then
                With fileSelFile.ListItems.Add(, , names(i)).ListSubItems
                End With
          End If
        Next