LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
 Forums Обновлено :: 05 февраля 2005
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Файловый ...
 Тема: Файловый архив
 
 15.06.2007 21:02:03
IgorZabrodski
1 сообщения


Тема: Файловый архив
Доброго и удачного вам дня!
Проблема закелючается в создании БД по ведению архива файлов на нескольких компьютерах в сети.
Т.е. имеются каталоги на разных машинах, файлы с одинаковым расширением. Необходимо автоматизировать процедуру занесения ссылки на файл в таблицу БД. Буду рад и безмерно благодарен всем идеям и примерам.
Плиз : mailto: zabrodski@tut.by



P.S. Проблемы с базой данных
Автор: Igor Zabrodski от 22.02.2002 13:35:05 Источник ...
 15.06.2007 21:02:03
All
4316 сообщения
1-ый


RE: Файловый архив
Упрощенный пример для поиска файлов в папке strDir

Public Function funGetFiles(strDir as String)
Dim i As Long
On Error GoTo 999

With Application.FileSearch
.NewSearch
.LookIn = strDir
.FileName = "*.txt"

If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
funSaveFile .FoundFiles(i)
Next
End If
End With
Exit Function
999:
MsgBox Err.Description
Err.Clear
End Function


P.S. Проблемы с базой данных
Автор: Виктор Конюков от 0:00:00 Источник ...
 Страница 1 из 1
СледующийПредыдущийНет оценки
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Файловый ...
ПоискПоиск  Список форумовСписок форумов  
right
Начало | Forums
Copyright 2002-2016 Leadersoft.ru   ::  Leadersoft  ::  Соглашение о безопасности  ::  Условия использования
Не забудьте сохранить ссылку на страницу с кодом для дальнейшего анализа
Сайт разработан на базе технологий ASP.NET, DotNetnuke