| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Копирование файлов

RomanH ©   (2006-09-19 13:25:00) 

Мастера подскажите как правильно удалять и копировать файлы.
Желательно по одинаковому расширению.
FillChar(FromBuf,SizeOf(frombuf),0);
  FillChar(ToBuf,SizeOf(tobuf),0);
  StrPCopy(fromBuf,Path_OR+'*.rom');
  StrPCopy(tobuf,Path_IR);
  with OpStruc do
    begin                      
         wnd:=handle;
         wFunc:=FO_COPY;
         pFrom:=@frombuf;
         pTo:=@tobuf;
         fFlags:=FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR ;
         fAnyOperationsAborted:=false;
         hNameMappings:=nil;
         lpszProgressTitle:=nil;
    end;
   ShFileOperation(OpStruc);
Этот вариант копирует если в приемнике отсутствуют файлы.
Как можно сделать более кратче код и чтобы если в приемнике есть такие файлы которые мы хотим скопировать то их необходимо перезаписать

---

Virgo_Style   (2006-09-19 13:50:00) [1]

RomanH ©   (19.09.06 13:41) [2]
Возможно такое CopyFile('c:\*.rom','d:\*.rom',1)
Нет, хотя бы потому, что неверен тип третьего параметра. Да и маски, afaik, не поддерживаются. И вообще это почти на правах шутки, с обвязкой из FindFirst-FindNext выйдет разве на пару строк короче.

А вообще у ShFileOperation должны быть флаги "переписывать без предупреждения".

P.S. Не по теме: не был, не состоял, не привлекался =)

---

RomanH   (2006-09-19 13:41:00) [2]

> Virgo_Style ©  

Извените что не по теме, но ваш ник мне кажется связан с Blitz3D.
Хотелось бы узнать что вы сейчас на B3D творите.
А потеме Возможно такое CopyFile('c:\*.rom','d:\*.rom',1)

---

Virgo_Style   (2006-09-19 13:33:00) [3]

кратче?) CopyFile.

---

Наверх