папки в делфи

[angelap]

у меня есть прога которая ищет файлы в папках, мне нужно указать путь к диску и папке в которой искать. Подскажите как это сделать. Спасибо)

[Stilet]

ТаСамаяПрога.exe "D:\Папка где искать\"

[angelap]

да нет мне нужно что-то похожее на OpenDialog, он открывает только файлы, а мне нужно папку указать))воооот

[evg_m]

uses Qdialogs;

SelectDirectory(.....);

function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean;

[angelap]

if SelectDirectory(sDir, options, 0)
then ShowMessage('Chosen directory = '+sDir);
в sDir будет положен путь, да?
а если буду куднить его присваевать то писать sDir+...?

[Stilet]

Из Хелпа:

uses FileCtrl;

const
  SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'C:\MYDIR';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
end;

[angelap]

но у меня так же, но почему то с ней не работает копирование?
дело в том что мне нужно сначала нажать на кнопку которая указывает путь (он может быть любой), потом нажать на кнопку поиска папок, а потом на кнопку копирования(что он нашел). Эт все я сделал, а копирование чот неработает.

[Stilet]

почему то с ней не работает копирование?

Ну так показывай код.

[Serge_Bliznykov]

Эт все я сделал, а копирование чот неработает.

ну так надо "чёто" подправить в коде копирования, тогда заработает!


p.s. без кода, которым Вы копируете (кстати, возможно, что и ваш код поиска файлов будет к месту) и без сообщения об ошибках (иначе откуда Вы знаете, что "копирование чот не работает") - обсуждение вашей проблемы не имеет никакого практического смысла!