Главная страница
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.047 c
1-1156603638
angelika
2006-08-26 18:47
2006.10.08
анимированный gif в delphi


2-1158855259
!aLeXa!
2006-09-21 20:14
2006.10.08
Не устраивает стандартный Hint...


15-1158482845
Chuk & Gek
2006-09-17 12:47
2006.10.08
подключение к Internet чере мобильник


2-1158328792
Pa5ha
2006-09-15 17:59
2006.10.08
StrToFloat и языковые стандарты


15-1158126744
Ученик12
2006-09-13 09:52
2006.10.08
Ядро процессора