Основы офисного программирования и документы Word


Пример 5.1


Public Sub LookingFor() 'Для поиска файлов используется объект FileSearch Dim Report As String Dim i As Integer With Application.FileSearch .NewSearch .FileName = "Ch" .FileType = msoFileTypeWordDocuments .LastModified = msoLastModifiedAnyTime .LookIn = "e:" .SearchSubFolders = True .TextOrProperty = "Общее" .MatchAllWordForms = True .MatchTextExactly = False 'Добавление других критериев поиска AddCriteria If .Execute(SortBy:=msoSortByLastModified, _ SortOrder:=msoSortOrderDescending) > 0 Then Report = "Найдено " & .FoundFiles.Count & " файлов!" & vbCrLf For i = 1 To .FoundFiles.Count Report = Report & .FoundFiles(i) & vbCrLf Next i Call MsgBox(Report, vbInformation, "Отчет о найденных файлах!") End If End With PrintTest End Sub

Листинг 5.1.

Закрыть окно




Начало  Назад  Вперед