Перемещение файлов

[jkpro]

Здрасте, мня интересует как сделать чтобы прога перемещала файлы я в нете находил код но он слишком большой и на каждой строчке ошибки поэто у меня вапросы:
1. как сделать так чтобы прога сканировала что находица в определенной папке
2. чтобы из этой папки обсолютно всё переместить (все файлы и под каталоги)
З.Ы. мне информатик говорил что есть какае то прог которая из обычных программ может переводить в проект для си++ или для делфи, если это реал то плиз скажите название проги
Заранее спс за помощь +

[Usov]

простой пример перебора файлов в заданной папке:

var
  sr: TSearchRec;
begin  
  if FindFirst('c:\temp\*.*', faAnyFile, sr) = 0 then
  begin
    repeat
      if (sr.Attr and fa) = sr.Attr) and (sr.Attr <> faDirectory) then
        ShowMessage(sr.Name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

[[MoNAMur]]

3. 0_0
DeDe - делфи
но будет совсем не так как выглядит обычный проект.

[jkpro]

Ну этот код не перенесет файлы
З.ы. то что деде ничего не делает это нормально?

[Usov]

Говори тогда проще: ребята напишите мне прогу по переносу файлов.
Береш тот код что я дал выше, анализируешь найденный файл, если папка создай новую папку где нужно, а если файл - перенеси используя функцию rename (может немного по другому называется).
вот и все.

p.s. пользуйся помощью в делфи - там есть многие примеры