|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.03.2007, 13:25 | #1 |
Новичок
Джуниор
Регистрация: 23.03.2007
Сообщений: 1
|
Копирование файлов
Как с помощью Delphi скопировать любые файлы из одной папки в другую?
|
24.03.2007, 10:55 | #2 |
Регистрация: 12.12.2006
Сообщений: 4
|
Процедура копирования:
procedure CopyFileWithProgressBar1(Source, Destination: string);
var FromF, ToF: file of byte; Buffer: array[0..4096] of char; NumRead: integer; FileLength: longint; begin AssignFile(FromF, Source); reset(FromF); AssignFile(ToF, Destination); rewrite(ToF); FileLength := FileSize(FromF); with Progressbar1 do begin Min := 0; Max := FileLength; while FileLength > 0 do begin Application.ProcessMessages; BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead); FileLength := FileLength - NumRead; BlockWrite(ToF, Buffer[0], NumRead); Position := Position + NumRead; Sleep(100); end; CloseFile(FromF); CloseFile(ToF); end; end; Данная процедура копирует файл, указанный параметром Source в Destination. При этом процесс отображается компонентом ProgressBar. Пример использования: CopyFileWithProgressBar1(ExpandFile Name('Cntr.dll'),'C:\WINDOWS\system 32\Cntr.dll'); ЭТО РАБОТАЕТ!!! |
24.03.2007, 20:27 | #3 |
Форумчанин
Регистрация: 30.11.2006
Сообщений: 128
|
Вообще процедура CopyFile... но есть одно НО. Она копирует файлы только в существующую директорию. То есть если её нет, нужно создать CreateDirectory(Если не ошибаюсь). Но и у этой функции есть - . Она не создаёт вложенных папок, т.е. не создаст папку 2, c:\1\2 если не существует папка 1. Т.е. надо парсировать строку выделять папки и создавать по-одной!
nosce te ipsumj...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Копирование файлов | Artificial | Помощь студентам | 5 | 05.06.2008 18:42 |
Копирование файлов на FTP | Dj_smart | Общие вопросы Delphi | 2 | 05.03.2008 09:04 |
Копирование файлов | matus | Помощь студентам | 9 | 27.02.2008 19:34 |
копирование файлов | matus | Общие вопросы Delphi | 2 | 07.11.2007 21:57 |