Регистр имён файлов

[Константиин]

У меня такая проблема: добавляю с помощю D'n'D список файлов в ListBox, но нужно отфильтровать только конкретные. Я делаю так:

Код: Выделить всё

                If Right(path & Filename, 4) = ".mp3" _
                Or Right(path & Filename, 4) = ".MP3" _
                Or Right(path & Filename, 5) = ".mpeg" _
                Or Right(path & Filename, 5) = ".MPEG" _
                Then
                    FileCount = FileCount + 1
                    PlayList.AddItem path & Filename
                End If


Но это не рационально!!! Как сделать так, чтобы регистр имен файлов не учитывался???

[ANDLL]

if strcomp(Right(path & Filename, 4),".mp3",vbtextcompare)=0 then ...

[Хакер]

Скобка лишняя, сразу после if.
Привычка сишников, видимо.

[ANDLL]

Опечатка просто

[Константиин]

Я тут нашёл ешё один способ:
Функции UCase$ и LCase$ позволяют вам осушествлять сравнения вне зависимости от регистра текста, но нижеследующие функции API гораздо быстрее:

Declare Function CharLower Lib "user32" _
Alias "CharLowerA" (ByVal lpsz As String) As String

Declare Function CharUpper Lib "user32" _
Alias "CharUpperA" (ByVal lpsz As String) As String.

В связи с чем, возникает ещё один вопрос: как будет быстрее?

[Хакер]

Вариант ANDLL должен быть быстрее.