Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: как грамо...

Тема: как грамотно заполнить список именами файлов

15.06.2007 21:03:17

All

4316 сообщения

Тема: как грамотно заполнить список именами файлов

Здравствуйте!
На форме имеется список.Его надо заполнить именами
файлов из определенной дирректории.
Понимаю,что надо использовать команду DIR,
но как сделать это грамотно, не совсем понятно.
Спасибо.

P.S. Раздел для новичков
Автор: NAD от 0:00:00 Источник ...

15.06.2007 21:03:17

All

4316 сообщения

RE: как грамотно заполнить список именами файлов

Public Function funLoadFiles()
Dim fs, i As Long, s as String
Set fs = Application.FileSearch
On Error GoTo 999
With fs
.LookIn = "c:\"
.FileName = "*.mdb"
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
s = s & .FoundFiles(i) & ";"
Next i
Me.Список.RowSource = s
End If
End With
Exit Function
999:
Err.Clear
Resume Next
End Function

P.S. Раздел для новичков
Автор: Алекс от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: как грамо...

Поиск

Список форумов

Начало | Forums