| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

копирование файла [D6]

Страницы:   < 1 2 >

rooman1 ©   (2002-12-15 15:31:00) 

здрасте.
винда дает сообщение "не могу скопировать,файл не найден"
подскажите что не так
var
List : TStringList;
Begin
List := TStringList.Create;
FindOne("C:\int.exe",List);
WindowsCopyFile ("List", GetCurrentDir);
End;

---

rooman1   (2002-12-15 17:27:00) [21]

находим файл,затем копируем
Procedure FindOne(Path:String; List: TStringList);
Var SearchRec:TSearchRec;
Begin
IF FindFirst(Path,faAnyFile-faDirectory,SearchRec)=0 then
try
List.Add(SearchRec.Name);
While FindNext(SearchRec)=0 Do List.Add(SearchRec.Name);
finally
FindClose(SearchRec);
end;
function WindowsCopyFile (FromFile, ToDir : string) : boolea.
...
Procedure TForm1.Button1Click(Sender:TObject);
var
List : TStringList;
Begin
List := TStringList.Create;
List.Sorted := true;
FindOne("C:\int.exe",List);
WindowsCopyFile ("List", GetCurrentDir);
End;

---

Zz_   (2002-12-15 16:07:00) [22]

"List" -> List наверное ?

---

Reindeer Moss Eater   (2002-12-15 16:00:00) [23]

Что такое:
FindOne,WindowsCopyFile ?

---

Страницы:   < 1 2 >

Наверх