| |
|
|
| | Как программно выполнить копирование файлов таблиц *.dbf с одного каталога в другой.
Инструкции FileCopy и Name не подходят. | |
| |
| |
|
|
| |
|
|
| | Когда с базой работают,- нет разрешения доступа к файлам. | |
| |
| |
| |
|
|
| | так это естественно :)
нужно копировать, когда файлики свободны | |
| |
| |
| |
|
|
| | Стандартными операциями Windows это возможно. Как это выполнить в оболочке Access? | |
| |
| |
| |
|
|
| |
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "C:\Папка1\*.dbf", "C:\Папка2"
|
| |
| |
| |
| |
|
|
| |
fl = Dir("C:\папка1\*.dbf")
Do While Len(fl)>0
FileCopy "C:\папка1\" & fl, "C:\папка2\" & fl
fl = Dir
Loop
|
Также можно через FSO или API | |
| |
| |
