Поиск файлов

← →
F@T@L_Err0r © (2007-10-29 10:54) [0]

Здравствуте Ув.У меня такая проблема почему то в переменной link после присваивания получается что то типа C:\Dir\..Filename.txt. Как мне избавится от ".." .В s находится значение edit1.text.

Procedure CopyFiles(S:String);
var F:TSearchRec;
Link,from,temp:string;
begin
link:=s;
if FindFirst(s+"*.*",faAnyFile,f)=0 then
begin
while FindNext(f)=0 do
begin
temp := f.Name;
link:=link+temp;
from:="C:\1\"+f.Name;
form1.label1.caption := link;
if CopyFile(PChar(link),PChar(from),false) then ShowMessage("Copy Good")
else ShowMessage("Copy Bed");
FindClose(f)

← →
Ega23 © (2007-10-29 11:01) [1]

> Copy Bed

Это чё? "Копия кровати?" Или "Кроватная копия"?

подозрение что это бот... ну не может человек быть настолько неспособным к обучению...
http://delphimaster.net/view/2-1193292166/

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