Topic: Поиск файла на компьютере и дальнейшее его перемещение

Всем, добрый день.
Дмитрий , не подскажите с помощью какой функции можно реализовать поиск файла в системе на всех дисках, зная имя файла и расширение. С последующим перемещением (либо копированием) в необходимую (указанную) директорию.
Ну и если можно с небольшим примерчиком. За ранее спасибо!

Re: Поиск файла на компьютере и дальнейшее его перемещение

Привествую.


Добавил возможность поиска файлов на диске или в папке, скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/sunrl4ano9340 … a.zip?dl=0


Пример
http://myvisualdatabase.com/forum/viewt … ?pid=25249


Имейте ввиду, что поиск файла на целом диске может занять довольно много времени. Также может быть найден не один файл, а несколько, поэтому результат поиска заносится в объект TStringList

Dmitry.

Re: Поиск файла на компьютере и дальнейшее его перемещение

DriveSoft wrote:

Привествую.
Добавил возможность поиска файлов на диске или в папке, скачайте пожалуйста последнюю бета версию

Дмитрий, спасибо!

4 (edited by Igor 2018-05-24 12:14:20)

Re: Поиск файла на компьютере и дальнейшее его перемещение

Дмитрий, попутный вопрос.
Как можно скопировать определенную строку из Memo , например 1 строку из Мемо в текстовое поле ?

Re: Поиск файла на компьютере и дальнейшее его перемещение

Igor wrote:

Дмитрий, попутный вопрос.
Как можно скопировать определенную строку из Memo , например 1 строку из Мемо в текстовое поле ?

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    Form1.Edit1.Text := Form1.Memo1.Lines[0];
end;
Dmitry.