| |
|
|
| | Не желает работать, ругается на Application.FileSearch
Может кто знает как изменить под 2010?
With Application.FileSearch
.LookIn = DefaultDir
.FileType = msoFileTypeAllFiles
.FileName = "*.*"
.Execute
For Y = 1 To .FoundFiles.Count
If Right(.FoundFiles(Y), FNLENGTH + 4) = vivafilename Then
gefunden = True
End If
Next Y
End With | |
| |
| |
| |
|
|
| | Офисная библиотека подключена? | |
| |
| |
|
|
| |
|
|
| | Вот "нарыл" сейчас переинсталю Офис и попробую.
Sub FSOListFiles()
'Требует подключения библиотеки MS-Runtime / Verweis auf die MS-Runtime-Bibliotheken
'обязательное условие / unbedingt erforderlich!!
Dim Ordnername As String
Ordnername = Dialogs(wdDialogToolsOptionsFileLocations).Setting _
& Application.PathSeparator
'или / oder
'Имя директории / Ordnername = "D:\Temp-Ablage\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set QuellOrdner = fso.GetFolder(Ordnername)
Set Dateien = QuellOrdner.Files
x = QuellOrdner.Files.Count
For Each File In Dateien
If Right(File.Name, 3) = "doc" Then
If Left(File.Name, 1) <> "~" Then
'только имя файла / nur Dateiname
Selection.TypeText Text:=File.Name & vbCrLf
'Директория и имя файла / Ordner und Dateiname
'Selection.TypeText Text:=File.Path & vbCrLf
End If
End If
Next
Selection.TypeText Text:=vbCrLf & "Gefunden: " & CStr(x) & vbCrLf
End Sub | |
| |
| |
| |
|
|
| | Все работает, я удовлетворен. Кому надо - используйте на здоровье. | |
| |
| |
|
|
| |
|
|
| | А вот так, дружочек, на 2010 Application.FileSearch прописывают | |
| |
| |
| |
|
|
| | Дожили.
Хорошо шо я дальше 2003 не пошёл, а то бы тоже с лентами фсякими мучилси ба.
============================
У дачи...  | |
| |
| |
| |
|
|
| | А придется. У меня сейчас все на 2003, но время идет... Вот начинаю потихоньку с махонькой для своих нужд. А что с большими и серьезными делать - ума не приложу. | |
| |
| |
| |
|
|
| | FileSearch - дочерний объект фиблиотеки FSO. Попробуйте вместо Application.FileSearch использовать объект FileSearch , созданный с помощью CreateObject("Office.FileSearch") с помощью New при подключенной библиотеке.
ЗЫ. Сам бы давно проверил, но у меня нет А2007-2010. Этот совет давал много раз, но никто не сообщил результат.  | |
| |
| |
| |
|
|
| | Что-то я не нашел в FSO объекта FileSearch. А то что Вы указываете, это объект библиотеки офиса. | |
| |
| |
