![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
скопировать файл
проходил мимо решил заглянуть © (2006-10-13 11:01:00)Уважаемые мастера подскажите пожалуйста как скопировать файл если знаеш имя, а расширение неизвестно. CopyFile нужно полное имя файла, что делать ума не приложу. Заранее спасибо.
Elen (2006-10-13 11:27:00) [1]Удалено модератором
Примечание: Offtopic
Elen (2006-10-13 11:26:00) [2]
> проходил мимо решил заглянуть
На дорожку тебе :
procedure TForm1.FormCreate(Sender: TObject);
var f:TSearchRec; pt:string;
begin
pt:='c:\wincmd\*.exe';
if FindFirst(pt,faAnyFile,f) =0 then
while FindNext(f)=0 do begin
ListBox1.Items.Append(f.Name);
// Копировать умееш?
end;
FindClose(f);
end;
проходил мимо решил заглянуть (2006-10-13 11:25:00) [3]Уважаемая Elen © бооооольшое вам спасибо. Очень вам благодарен, что вы ответили на вопрос а не начали ерничать как некоторые. :)
Elen (2006-10-13 11:21:00) [4]
> проходил мимо решил заглянуть
Ха ! Так это в цикле надо делать через FindFirst - FindNext
проходил мимо решил заглянуть (2006-10-13 11:19:00) [5]Elen © (13.10.06 11:09) [3]
Копировать все файлы с этим именем. Точно не ошибешся :)
Именно это я и хочу но как это сделать.
Elen (2006-10-13 11:09:00) [6]
> копировать файл если знаеш имя, а расширение неизвестно
Копировать все файлы с этим именем. Точно не ошибешся :)
проходил мимо решил заглянуть (2006-10-13 11:05:00) [7]Что не выйдет ум приложить или файл скопировать :)
Jeer (2006-10-13 11:03:00) [8]
> что делать ума не приложу.
не прикладывай, даже два не прикладывай - не выйдет.