ник: akkorn
Ситуация следующая: Я создал базу данных изделий предприятия. На сервере этого же предприятия есть файлы разработок изделий. Я хочу сделать так, чтобы в форме в списке при нажатии кнопки "Показать изделия" появлялись строки с путями до файлов на сервере и при двойном клике - запускался файл в родном приложении.
Реализация:
На сервере все изделия раасортированы каждое в свою директорию. В базе-же содержится некий набор данных, по которым я смогу приблизительно определить имя директории, но оно будет с продолжением (пояснение). Пример:
В базе строка говорит: zn14-00-000-01
На сервере директория: zn14-00-000-01 Усилитель линейный
МОЯ ПРОБЛЕМА: На сервере ОЧЧЧЕНЬ МНОГО ФАЙЛОВ (директорий только под 700, а в каждой не менее 15 файлов!!(стандартно там куча поддиректорий со своими файлами)). Я написал функцию, которая находит все файлы, начинающиеся с "zn14-00-000-01". НО ФУНКЦИЯ РАБОТАЕТ ОЧЕНЬ ДОООООЛГО! (от 2 до 4 минут).
Подскажите, как мне сначала включить НЕ ПОИСК ФАЙЛОВ, А ПОИСК ПОХОЖЕЙ ДИРЕКТОРИИ, а потом уже в ней я включу как раз эту функцию поиска файлов.
Вот моя ф-ция:
Function A1() As String
A1 = "Файлы не найдены!"
Dim ListRes1 As String
With Application.FileSearch
.LookIn = "\\tyan\arhive\"
.FileName = "zn14-00-000-01"
.SearchSubFolders = True
.Execute SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending
For i = 1 To .FoundFiles.Count
If ListRes1 = "" Then
ListRes1 = .FoundFiles(i)
Else
ListRes1 = ListRes1 & ";" & .FoundFiles(i)
End If
Next i
End With
If Len(ListRes1) > 0 Then A1 = ListRes1
End01:
End Function
Результат работы этой функции строка, которую можно использовать как данные для списка. Что-то вроде (ф-ция кнопки на форме):
me.list1.rowsource=a1
ПОМОГИТЕ КТО МОЖЕТ!!! Я НЕ ЗНАЮ КАК ВКЛЮЧИТЬ ПОИСК ИМЕННО ПАПОК!!
Перепробовал уже все способы. Перерыл интернет. Все пусто. Нет даже намеков.
ПЛИЗЗЗ!