[neo4511]

Здравствуйте!
Помогите написать прогу чтобы она считывала пути из файла (к примеру F:\Фильмы\ и F:\$Recycle.Bin\ Сам файл http://ifolder.ru/10038496 )И потом туда копировала другой файл.

Заранее огромное спасибо!

[Interface]

Непонял куда тебе надо копировать другой файл?

[neo4511]

Другой файл надо копировать в те места, пити которые написаны уже в имеющимся файле (http://ifolder.ru/10038496) Там могут быть разные пути, надо штобы прога все их считала и скопировала в них тот другой файл.

[Interface]

А что собственно не получается? Читаешь http://www.delphisources.ru/pages/fa...opy_files.html Затем загружаешь файл с путями. Дальше все понятно... (вроде)

[neo4511]

Не понятно как из файла с путями выдрать эти самые пути и скопировать по ним файл. Может приведёшь примерный код.

[neo4511]

Пишет ошибку: Компиляция
[Ошибка] Unit1.pas(36): Incompatible types: 'String' and 'PAnsiChar'
[Фатальная Ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Код:

var
Form1: TForm1;
Fail:TextFile;
dir:string;

begin
AssignFile(Fail,'DCPlusPlus.xml');
Reset(Fail);
try
while not Eof(Fail) do
begin
Readln(Fail,dir); 
CopyFile('F:\Фильмы\',dir,false);
end;
finally
CloseFile(Fail);
end;
end;

Admin: Пользуемся тегами, иначе последуют санкции!

Мне кажется что вы не совсем поняли, мне надо в файле DCPlusPlus.xml найти строки пути, там они в таком виде:

<Share>
<Directory Virtual="Фильмы">F:\Фильмы\</Directory>
<Directory Virtual="_Recycle.Bin">F:\$Recycle.Bin\</Directory>
</Share>

Но могут быть и другие, надо чтобы указанный мною файл был скопирован в F:\Фильмы\ и F:\$Recycle.Bin\ ,но это тока в этом случае, если другой DCPlusPlus.xml то соответственно пути будут другие.