Как указать «EOL» в строке поиска VBA?

Question

[Использование VBA в Microsoft 365 Word]

В VBA я пытаюсь перечислить все файлы в каталоге с расширением .do c. Однако в каталоге могут быть файлы .docx. Использование команды

strFile = Dir("C:\Users\conrad\Desktop\*.doc", vbNormal)

, к сожалению, также захватывает файлы .docx, которые мне не нужны.

Как мне не перехватить файлы .docx?

Answer 1

Dim fPath, pattern, f

fPath = "C:\Files\"
pattern = "*.doc"

f = Dir(fPath & pattern, vbNormal)
Do While f<>""
    If f Like pattern Then
       'is a .doc file
    End If
    f = Dir()
Loop

Answer 2

(Вероятно, перебор, но ...)

Вы можете использовать Scripting.FileSystemObject для этого. Обязательно добавьте ссылку на «Microsoft Scripting Runtime» в Tools > References .

Sub Test()
    Dim FSO As Scripting.FileSystemObject
    Set FSO = New Scripting.FileSystemObject
    
    Dim fold As Folder
    Set fold = FSO.GetFolder("C:\Users\conrad\Desktop\")
    
    Dim f As File
    For Each f In fold.Files
        If FSO.GetExtensionName(f) = "doc" Then
            ' do whatever with the file
        End If
    Next
End Sub