Ищем файлы

@Ципихович Эндрю · Регистрация: 10.04.2009

Author24 — интернет-сервис помощи студентам

Есть пример в Ворде поиска файлов???? Подскажите
Свойство FileSearch объекта Application возвращает объект FileSearch, который инкапсулирует и себе свойства и методы,реализующие поиск специфицированного файла на диске. Перечислим основные свойства объекта FileSearch:
- свойство LookIn возвращает или устанавливает каталог, в котором производится поиск.
- свойство FileType возвращает или устанавливает тип искомого файла. Его допустимым значением может быть одна из следующих констант:
msoFileTypeAllFiles
msoFileTypeCalendarItems
msoFileTypeCustom
msoFileTypeDataConnectionFiles
msoFileTypeDocumentImagingFiles
msoFileTypeJournaItem
msoFileTypeNoteItems
msoFileTypeOutLookItems
msoFileTypePowerPoint
msoFileTypeTemplates
msoFileTypeWebPages
msoFileTypeBindere
msoFileTypeContactItems
msoFileTypeDataBases
msoFileTypeMailItems
msoFileTypeOfficeFile
msoFileTypeTarkItems
msoFileTypeVisioItems
msoFileTypeWordDocuments

- свойство FoundFile возвращает объект FoundFiles, представляющий собой список имен всех найденных в течение поиска файлов.
Метод Execute объекта Application производит непосредственный поск. Он возвращает целое число, причем , если оно равно 0, то ни одного файла не было найдено, а если положительное , то найден , по крайней мере, один файл.

Листинг 6. Поиск рабочих книг в корневом каталоге диска С

PureBasic

With Application. FileSearch
.LookIN = “C:\”
.FileType= msoFileTypeExcelWordBooks
If.Execute (SortByFileName._
Sortorder: msosoftorderabcending)>0 Then
Dim str As string
Str = “Найдено” & .FoundFile.Count & “
Dim I as integer
Int= I to FoundItem.Count
Str= str &. FoundFile (i) & vthcr
Next
MsgBox str
Else
MsgBox “Рабочие книги не найдены”
End if
End with

Добавлено через 8 часов 11 минут
Сделал

PureBasic

Option Explicit
 
Sub FIO()
 
With Application.FileSearch
.LookIn = "L:\" 'адрес, где ищем файлы
'msoFileTypeWordDocuments
'msoFileTypeWebPages
'msoFileTypeVisioFiles
'msoFileTypeTemplates
'msoFileTypeTaskItem
'msoFileTypePublisherFiles
'msoFileTypeProjectFiles
'msoFileTypePowerPointPresentations
'msoFileTypePhotoDrawFiles
'msoFileTypeOutlookItems
'msoFileTypeOfficeFiles
'msoFileTypeNoteItem
'msoFileTypeMailItem
'msoFileTypeJournalItem
'msoFileTypeExcelWorkbooks
'msoFileTypeDocumentImagingFiles
'msoFileTypeDesignerFiles
'msoFileTypeDataConnectionFiles
'msoFileTypeDatabases
'msoFileTypeContactItem
'msoFileTypeCalendarItem
'msoFileTypeBinders
'msoFileTypeAllFiles
.FileType = msoFileTypeCalendarItem
If .Execute(msoSortByFileName, msoSortOrderAscending) > 0 Then
Dim str As String
str = "Найдено " & .FoundFiles.Count & " "
Dim I As Integer
For I = 1 To .FoundFiles.Count
str = str & .FoundFiles(I) & vbCr
Next
MsgBox str
Else
MsgBox "Файлы, типа: " & msoFileTypeCalendarItem & " не найдены"
End If
End With

Осталось несколько вопросов
1. в строке
MsgBox "Файлы, типа: " & msoFileTypeCalendarItem & " не найдены"
Как чтобы вместо "Файлы, типа: 11 не найдены"
было указано,что то вроде этого
"Файлы, типа: CalendarItem не найдены"
2. Соль всего этого для меня в этой строке:
If .Execute(msoSortByFileName, msoSortOrderAscending) > 0 Then
А именно Execute
Как закомментировать
msoSortByFileName '
msoSortOrderAscending '
И что в этой строке можно ещё навернуть???
3. и потом ещё пробовал вручную записать макрос
открыть папку..., по адресу...., а далее Вид, например > Таблица
Глянул в код а там - КУКИШ
Как это сделать при помощи ВБА?????????

Добавлено через 48 минут
4.Соль, важность всего этого для меня в этой строке:
If .Execute(msoSortByFileName, msoSortOrderAscending) > 0 Then
А именно Execute
Как закомментировать

'msoSortBySize
'msoSortByNone
'msoSortByLastModified
'msoSortByFileName
'msoSortOrderAscending
'AlwaysAccurate = True
'AlwaysAccurate = False по умолчанию, так???

Добавлено через 20 минут
вроде закомментировал, правильно ли???
'msoSortBySize сортировать по размеру
'msoSortByNone не сортировать
'msoSortByLastModified сортировать по последнему изменению
'msoSortByFileName сортировать по имени
'msoSortOrderAscending сортировать в прямом порядке как это??
'AlwaysAccurate = True всегда точно
'AlwaysAccurate = False не всегда точно по умолчанию, так???

	18.12.2010, 20:51