Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Флейм > КАК ИЗМЕНИТЬ ИМЯ КАТАЛОГА?

Автор: VAV 14.1.2004, 15:16

В Win API не могу найти средств для копирования каталога(с подкаталогами и филе).
И изменения имени каталога.
Мне казалось что енто так просто должно быть. Сунулся в Help Win API... так и Ё.... с крыльца.

Автор: Kesh 14.1.2004, 16:41

По материалам FAQ'a

Цитата

Копирование директории

Код


procedure CopyDir(SourceDir,DestDir: String); 
var
  OpStruc: TSHFileOpStruct; 
  frombuf, tobuf: Array [0..255] of Char; 
begin  
  FillChar( frombuf, Sizeof(frombuf), 0 ); 
  FillChar( tobuf, Sizeof(tobuf), 0 ); 
  StrPCopy( frombuf, SourceDir+'\*.*' ); 
  StrPCopy( tobuf, DestDir ); 
  with OpStruc do begin 
    Wnd := Handle; 
    wFunc := FO_COPY; 
    pFrom := @frombuf; 
    pTo := @tobuf; 
    fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION; 
    fAnyOperationsAborted := False; 
    hNameMappings := Nil; 
    lpszProgressTitle := Nil; 
  end; 
  ShFileOperation( OpStruc ); 
end;