Форум: "Начинающим";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];

Вниз

Каталог   Найти похожие ветки 

← →
bolbes   (2006-03-20 12:06) [0]

Подскажите пожалуста или дайте сслыку:
Как из одного каталога скопировать всё содержимое в другой?

---

← →
Ega23 ©   (2006-03-20 12:25) [1]

FindFirst, FindNext + F1

---

← →
Virgo_Style ©   (2006-03-20 12:31) [2]

ShFileOperation вроде бы умеет

---

← →
nap<>   (2006-03-20 12:41) [3]

А вот такая проблема:
Вот код

procedure CopyDir(inDir, outDir: string);
var
 Found  : integer;
 SearchRec : TSearchRec;
Begin
 Found := FindFirst(indir+"*.*", faAnyFile, SearchRec);
 while Found = 0 do
 begin
   if (SearchRec.Attr and faDirectory)=0 then
    begin
      CopyFile(pchar(indir + SearchRec.Name), pchar(outdir + SearchRec.Name), false);
    end
     else
    begin
      CreateDir(outdir+SearchRec.Name);
    end;
  Found := FindNext(SearchRec);
 end;
 FindClose(SearchRec);
end;


как седалать так чтобы файлы в подкатологе правильно копировались

---

← →
Amoeba ©   (2006-03-20 12:42) [4]

> Virgo_Style ©   (20.03.06 12:31) [2]
> ShFileOperation вроде бы умеет

Поддерживаю.
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=91

---

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

Форум: "Начинающим";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.035 c