Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.06.2007, 08:54   #1
holy
Новичок
Джуниор
 
Регистрация: 16.06.2007
Сообщений: 2
Вопрос программа на дельфи - Резервное копирование

Пишу прогу на дельфи Резервное копирование я сделал чтобы он копировал файлы но не как не получается коипровать папку кто знает как это можно сделать чтобы не тока копировал файлы но и папки заранее блогадарю!!!
holy вне форума Ответить с цитированием
Старый 16.06.2007, 20:15   #2
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Получить список всех поддиректорий и файлов и копировать все по очереди.
ICQ: 5311314
[SIGPIC][/SIGPIC]
AVer вне форума Ответить с цитированием
Старый 17.06.2007, 20:39   #3
holy
Новичок
Джуниор
 
Регистрация: 16.06.2007
Сообщений: 2
По умолчанию

Спасибо за совет! Ну я так уже пробовал копирует но только пустую папку
holy вне форума Ответить с цитированием
Старый 05.09.2007, 23:19   #4
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,239
По умолчанию

Возможно использовать модуль ShellAPI, там есть всё что надо для работы с файлами и прочие полезности.
Alter вне форума Ответить с цитированием
Старый 06.09.2007, 11:06   #5
Kashp
Форумчанин
 
Регистрация: 05.08.2007
Сообщений: 225
По умолчанию

Цитата:
Сообщение от holy Посмотреть сообщение
Пишу прогу на дельфи Резервное копирование я сделал чтобы он копировал файлы но не как не получается коипровать папку кто знает как это можно сделать чтобы не тока копировал файлы но и папки заранее блогадарю!!!
Попробуй это:
Код:
unit FilesOp; 

interface 

uses Forms, SysUtils, ShellAPI, Dialogs; 

procedure CopyFiles(const FromFolder: string; const ToFolder: string); 

implementation 

procedure CopyFiles(const FromFolder: string; const ToFolder: string); 
var 
  Fo      : TSHFileOpStruct; 
  buffer  : array[0..4096] of char; 
  p       : pchar; 
begin 
  FillChar(Buffer, sizeof(Buffer), #0); 
  p := @buffer; 
  StrECopy(p, PChar(FromFolder)); //директория, которую мы хотим скопировать
  FillChar(Fo, sizeof(Fo), #0); 
  Fo.Wnd    := Application.Handle; 
  Fo.wFunc  := FO_COPY; 
  Fo.pFrom  := @Buffer; 
  Fo.pTo    := PChar(ToFolder); //куда будет скопирована директория
  Fo.fFlags := 0; 
  if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then 
    ShowMessage('File copy process cancelled') 
end; 

end.
Kashp вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
дельфи ubuntu 7,04 igorvek Помощь студентам 2 06.07.2010 15:39
Прога Резервное копирование Yar Помощь студентам 1 28.05.2008 11:24
двумерка в дельфи Puffy Помощь студентам 4 13.05.2008 01:04
Резервное копирование файлов Viteef Софт 0 15.12.2007 08:02
Резервное копирование и восстановление данных в SQL Server 2005 Valkiria SQL, базы данных 1 29.10.2007 10:17