Поиск Файлов

← →
Pirelli © (2007-11-06 15:00) [0]

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

← →
vpbar © (2007-11-06 15:04) [1]

поищи
* Project : TEasyFileSearch component
* Author : Alexandre GAMBIER
* Date : 25/09/2002
* Unit : Versions
* Prefixe :
* Purpose : List of evolution

← →
Pirelli © (2007-11-06 15:26) [2]

vpbar
Спасибо

← →
clickmaker © (2007-11-06 16:33) [3]

> [2] Pirelli © (06.11.07 15:26)

неподъемно сложная задача, конечно? GetLogicalDrives() + FindFirst / FindNext + CopyFile()

← →
Pirelli © (2007-11-07 12:48) [4]

Я же только учусь)))

А как в команде CopyFile указать текущий каталог (т.е. тот в котором находиться программа и файл)?

← →
clickmaker © (2007-11-07 12:55) [5]

> как в команде CopyFile указать текущий каталог

енто функция.
На текущий не стоит полагаться. Там нужно полные пути указывать
CopyFile("c:\folder1\doc1.txt", "d:\folder2\doc1.txt", false)
скопирует с c: на d:

← →
Pirelli © (2007-11-07 14:27) [6]

А если исходный каталог заведомо неизвестен,т.е. копирование происходит, например с диска, и буква привода неизвестна.

← →
Reindeer Moss Eater © (2007-11-07 14:30) [7]

А если исходный каталог заведомо неизвестен

Тогда все пропало!

← →
Pirelli © (2007-11-07 14:39) [8]

> А если исходный каталог заведомо неизвестен
>
> Тогда все пропало!

Не мАгЁт такого быть...

← →
Pirelli © (2007-11-07 14:51) [9]

Возможно ли определить каталог в котором программа была запущена?

← →
Skyle © (2007-11-07 14:52) [10]

> Pirelli © (07.11.07 14:51) [9]
> Возможно ли определить каталог в котором программа была
> запущена?

ExtractFilePath?
Application.ExeName?

← →
Pirelli © (2007-11-07 15:43) [11]

var
Path:string;
begin
Path:=ExtractFilePath(Application.ExeName);
Form1.Label1.Caption:=Path;

Мы получили путь по которому запущена программа,
далее
CopyFile(" Здесь нужно прописать полученный путь,который хранится в переменной Path и дописать имя файла (Install.rar) ", "d:\folder2\Install.rar", false)
Вопрос - как?

← →
Anatoly Podgoretsky © (2007-11-07 16:14) [12]

> Pirelli (07.11.2007 15:43:11) [11]

Это делается с помощью операции сложения или функцие Concat

← →
Pirelli © (2007-11-07 16:44) [13]

> Pirelli (07.11.2007 15:43:11) [11]
>
> Это делается с помощью операции сложения или функцие Concat

Я попробовал сделать так: Path:=Path+"\Install.rar";
Но CopyFile(Path, "C:\Install.rar", false); - несовместимость типов String и PAnsiChar. Как можно переменную Path перевести в PAnsiChar?

← →
Anatoly Podgoretsky © (2007-11-07 16:55) [14]

> Pirelli (07.11.2007 16:44:13) [13]

Неужели ничего не слышал про приведение, как же ты тогда программируешь, ведь без него практически нельзя.

> Неужели ничего не слышал про приведение, как же ты тогда
> программируешь, ведь без него практически нельзя.

Я пока только учусь, если мне никто не скажет, то никогда и не услышу(((
Я слышал про перевод: StrToFloat и т.п. но в PAnsiChar так не получается...

PChar(Path:=Path+"\Install.rar") - и всё работает.

то есть я хотел сказать PChar(Path+"\Install.rar").

Все получилось,всем спасибо)))

var
Path:string;
begin
Path:=ExtractFilePath(Application.ExeName);
Path:=Path+"Install.rar";
CopyFile(PChar(Path), "C:\Install.rar", false);
end;

В результате файл который лежит в папке с програамой копируется на диск С.

>>Я пока только учусь, если мне никто не скажет, то никогда и не услышу
А позвольте полюбопытствовать, по какому учебнику?

> >>Я пока только учусь, если мне никто не скажет, то никогда
> и не услышу
> А позвольте полюбопытствовать, по какому учебнику?

CСписок литературы: Internet(учебники и форумы).

Поиск Файлов Найти похожие ветки