VPF::Как получить список файлов в директории

maxo127

Дата 16.9.2009, 16:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 28.10.2006

Репутация: нет
Всего: нет

Надо получить список файлов в директории (на удаленной машине) для дальнейшей обработки списка.

Код типа

Код



Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(dir)
Set files = folder.files

For Each file In files

With rst1
If Right(file.name, 3) = "mdb" Then

          .AddNew
          
          name_file = Right(file.name, 10)
          !name = name_file
          Forms!form1!List24.Value = name_file
          .Update
          End If
                 
           
          End With
Next
   
   rst1.Close
   Set dbs = Nothing

работает очень медленно.

Можно ли из VBA получить от удаленной системы целиком список, а не считывать файлы по одному?

Akina

Дата 16.9.2009, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Цитата(maxo127 @ 16.9.2009, 17:27

)

Можно ли из VBA получить от удаленной системы целиком список, а не считывать файлы по одному?

Нет.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

bopoha

Дата 17.9.2009, 09:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

maxo127,
Попробуйте:
1. убрать вот это:

Цитата(maxo127 @ 16.9.2009, 16:27

)

Forms!form1!List24.Value = name_file

2. добавлять в recordset блоками см. метод BatchUpdate.
3. Добавлять строки в память, например в Collection.

Добавлено через 24 секунды
4. Заюзать WinApi

--------------------

Как создавать приложения на MS Access

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »