拡張子を限定、有るか無いかも判別してListに追加

    Dim FL As New List(Of String) 'リストを作成

    Public Sub ContAdd(ByVal FName As String) '重複のしないようにリストに追加
        If FL.Contains(FName) = False Then
            FL.Add(FName)
        End If
    End Sub

    Public Function ExteJudge(ByVal FN As String) As Boolean '拡張子の種類、有無を判別
        If System.IO.Path.HasExtension(FN) = False Then Return True '拡張子ナシの場合
        Dim Extes() As String = {".ai", ".eps"}
        Dim Exte As String = String.Empty
        For Each Exte In Extes
            If Exte = System.IO.Path.GetExtension(FN) Then
                Return True
            End If
        Next
        Return False
    End Function

    Sub Main(ByVal Fs() As String)
        FL.Clear()
        Dim files As String()
        For Each FName As String In Fs 'フルパスがファイルかフォルダか判別する
            If GetAttr(FName) = FileAttribute.Directory Then 'フォルダなら
                files = System.IO.Directory.GetFiles(FName)
                For Each FileName As String In files
                    If ExteJudge(FileName) = True Then
                        ContAdd(FileName) '重複のしないようにリストに追加
                    End If
                Next
            Else 'ファイルなら
                If ExteJudge(FName) = True Then
                    ContAdd(FName) '重複のしないようにリストに追加
                End If
            End If
        Next

        If FL.Count = 0 Then
            Console.WriteLine("適切なファイルが選択されていません")
            Exit Sub
        End If
    End Sub