|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.01.2009, 10:40 | #1 |
Пользователь
Регистрация: 22.04.2008
Сообщений: 84
|
копирование бд (access) в новый каталог
скажите как по событию Button1Click создать новый каталог например с именем системной даты и скопировать туда базу (ассеss)?
база для копирования уже существует и заполнена данными но на другом диске.. заранее спасибо |
14.01.2009, 10:45 | #2 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Копирование содержимого директории, вместе с поддиректориями. Фукция копирует СОДЕРЖИМОЕ директории SourceDir в директорию TargetDir. Копируются все файлы, подкаталоги, и файлы находящиеся в этих подкаталогах. Аргумент StopIfNotAllCopied: если значение этого аргумента = True, то при первой же ошибке копирования файла или папки, работы функции прекратится а функуция вернёт False. В случае если этот аргумент = False, то ошибки копирования учитываться не будут. Аргумент OverWriteFiles: если True, то существующие файлы будут переписаны. Зависимости: SysUtils, FileCtrl, Windows Автор: VID, snap@iwt.ru, ICQ:132234868, Махачкала Copyright: VID Дата: 31 января 2003 г. *********************************** ****************** } function FullDirectoryCopy(SourceDir, TargetDir: string; StopIfNotAllCopied, OverWriteFiles: Boolean): Boolean; var SR: TSearchRec; I: Integer; begin Result := False; SourceDir := IncludeTrailingBackslash(SourceDir) ; TargetDir := IncludeTrailingBackslash(TargetDir) ; if not DirectoryExists(SourceDir) then Exit; if not ForceDirectories(TargetDir) then Exit; I := FindFirst(SourceDir + '*', faAnyFile, SR); try while I = 0 do begin if (SR.Name <> '') and (SR.Name <> '.') and (SR.Name <> '..') then begin if SR.Attr = faDirectory then Result := FullDirectoryCopy(SourceDir + SR.Name, TargetDir + SR.NAME, StopIfNotAllCopied, OverWriteFiles) else if not (not OverWriteFiles and FileExists(TargetDir + SR.Name)) then Result := CopyFile(Pchar(SourceDir + SR.Name), Pchar(TargetDir + SR.Name), False) else Result := True; if not Result and StopIfNotAllCopied then exit; end; I := FindNext(SR); end; finally SysUtils.FindClose(SR); end; end; Пример использования: FullDirectoryCopy('C:\a', 'D:\b'); // Скопирует содержимое директории C:\a (не не саму директорию) в директорию D:\b
вступлю в команду разработчиков ПО на Delphi
|
14.01.2009, 11:01 | #3 |
Пользователь
Регистрация: 22.04.2008
Сообщений: 84
|
Not enough actual parameters
ругается на эту строку.... может я чтото не так поняла ... TForm1.FullDirectoryCopy(''+GetCurr entDir+'\', ''+GetCurrentDir+'\Архив'); |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Копирование файлов(каталог-а) с ProgressBar | KurtWagner | Общие вопросы Delphi | 9 | 23.03.2009 03:22 |
Копирование в каталог windows | Черничный | Общие вопросы Delphi | 2 | 23.07.2008 03:52 |
Копирование файлов в каталог | SANTA_KLAUD | Общие вопросы Delphi | 10 | 13.05.2008 18:30 |
Копирование баз Access | Washington | Общие вопросы Delphi | 6 | 27.06.2007 08:39 |