Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.08;
Скачать: CL | DM;

Вниз

Копирование файлов   Найти похожие ветки 

 
RomanH ©   (2006-09-19 13:25) [0]

Мастера подскажите как правильно удалять и копировать файлы.
Желательно по одинаковому расширению.
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:33) [1]

кратче?) CopyFile.


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


> Virgo_Style ©  

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


 
Virgo_Style ©   (2006-09-19 13:50) [3]

RomanH ©   (19.09.06 13:41) [2]
Возможно такое CopyFile("c:\*.rom","d:\*.rom",1)

Нет, хотя бы потому, что неверен тип третьего параметра. Да и маски, afaik, не поддерживаются. И вообще это почти на правах шутки, с обвязкой из FindFirst-FindNext выйдет разве на пару строк короче.

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

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



Страницы: 1 вся ветка

Текущий архив: 2006.10.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.035 c
2-1158833275
Evgenii
2006-09-21 14:07
2006.10.08
Как обнулить время компонента TMonthCalendar


15-1158643332
Ega23
2006-09-19 09:22
2006.10.08
С Днём рождения! 19 сентября


6-1146497136
Pazitron_Brain
2006-05-01 19:25
2006.10.08
TIDIRC


4-1148801284
Хочу_все_знать
2006-05-28 11:28
2006.10.08
Как узнать во время работы программы что запустили другую


15-1158669123
vidiv
2006-09-19 16:32
2006.10.08
Снятие пароля на setup для ноутбука.