макрос различает .xls и .XLS

[БАХТИ]

есть один макрос

Sub processFolder()
Dim fso As Object, file As Object, wb As Workbook, fName As String
fName = "D:\_ОПЕР\ОПЕР\"
Set fso = CreateObject("scripting.filesystemo bject")
Set fso = fso.getfolder(fName)
For Each file In fso.Files
If file.Name Like "????0?.xls" Then
Set wb = Workbooks.Open(file)
End If
Next
End Sub

он открывает файлы 408205.xls, 489205.xls но не открывает 459205.XLS, 478207.XLS

Странно, разве макрос различает каким регистром написаны буквы расширения файла?

[Hugo121]

Да, если не позаботиться.
Приём в лоб - перевести оба сравниваемых в один регистр:

If ucase(file.Name) Like "????0?.XLS" Then

[kuklp]

option compare text

[Hugo121]

Я же написал - в лоб,
А это уже другой приём
Но может быть не нужно, чтоб все сравнения в модуле были без учёта регистра?

[kuklp]

А кто против? Оба варианта сгодятся.

[БАХТИ]

но когда вводишь в действие обычный макрос который состоит ну допустим из одной строки:

workbooks.open(...troyak.xls)

он открывает файл нормально, и в случае когда файл называется troyak.xls, и в том случае когда файл называется troyak.XLS

а предыдущий макрос различает регистр.

В чём разница?

[VictorM]

В чём разница?

Разница в том, что оператор Like используемый в первом коде различает регистр. (см. справку - курсор на слове Like - F1)
или - Оператор Like
а что сделать - выше Вам уже ответили.

[БАХТИ]

Сообщение от VictorM

Разница в том, что оператор Like используемый в первом коде различает регистр. (см. справку - курсор на слове Like - F1)
или - Оператор Like
а что сделать - выше Вам уже ответили.

спасибо за справку на русском