Поиск файлов

[Terran]

Попробуйте тот вариант который я выкладывал, только при нажатии на кнопку сделайте так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
ScanDir('C:\','1.txt');
End;

Поиск будет производиться только по диску C:\.

[hacknet]

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

[Terran]

Можно сделать так:

Var
Nam: String;
Kol: Integer;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
Nam:='1';
Kol:=1;
End;
...
If (SearchRec.Attr and faDirectory) <> faDirectory then    //если найденый файл не является директорией, то выводим его
Begin
Form1.memo1.Lines.Add(StartDir+SearchRec.Name);  //выводим путь и имя найденого файла
Repeat
If FileExists('D:\'+Nam+'.txt') Then
Begin
Kol:=Kol+1;
Nam:=IntToStr(Kol);
End;
Until Not
FileExists('D:\'+Nam+'.txt');
copyfile(pchar(StartDir+SearchRec.Name),pchar('D:\'+Nam+'.txt'),False);
Nam:='0';
Kol:=0;
Application.ProcessMessages;
End;

[hacknet]

в принцепе я понимаю код спс большое!! вот токо не могли бы его сделать вместе с тем кодом который вы написали на 1ой странице???)))

[Terran]

Сообщение от hacknet

в принцепе я понимаю код спс большое!! вот токо не могли бы его сделать вместе с тем кодом который вы написали на 1ой странице???)))

Вот держите:Поиск и копирование.rar
Я слегка изменил код, будет переименовывать файлы даже после повторного запуска проги.

[hacknet]

Спасибо большое всё работает!! извените меня если я вас достал...у меня теперь возник еще вопрос.....как добавить еще расширение файла т,е не токо .txt но к примеру .dat и чтоб они так же копировались на диск......)))??

p,s прошу прощения если я Вас достал!!!

[Terran]

у меня теперь возник еще вопрос.....как добавить еще расширение файла т,е не токо .txt но к примеру .dat и чтоб они так же копировались на диск......)))??

Тут можно попробовать использовать тот вариант, который я выложил, только поменять расширение у искомых файлов и сменить имя у нескольких переменных. Или попробовать поискать ещё какой-нибудь вариант поиска сразу нескольких файлов.

p,s прошу прощения если я Вас достал!!!

Не волнуйтесь, я всегда рад помочь!

[hacknet]

Хм...и как же это сделать???)))у меня просто каждый раз возникают всё новые и новые вопросы))сейчас постараюсь Вам объяснить что мне нужно от программы Ух начнём!я просто хочу чтоб программа искала два файла с такими расширениями .ini и .dat...чтоб .ini искала во всех дисках и желательно в program files а .dat во всех дисках, и вот самое главное, уж извените меня))чтоб они копировались мне на usb наситель(если такое возможно)..а т,к он у всех разный т,е его название, отправлялись мне на почту!!

p.s прошу еще раз ПРОШЕНИЯ, если я Вам показался наглым!

[Terran]

я просто хочу чтоб программа искала два файла с такими расширениями .ini и .dat...чтоб .ini искала во всех дисках и желательно в program files а .dat во всех дисках

Вот вам исходничёк:Вложение 6806
Ищет файлы .ini и .dat на всех дисках и если находит, то создаёт папку на диске D:\ и копирует туда все найденные файлы.

[hacknet]

Работает Спасибо!! но дело в том что она когда находит файлы к примеру .dat на "С" начинает их копировать на диск "D" то когда там создалась папка то он в ней начинает их копировать...можно как нибудь сделать эту папку в исключения??))