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

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

скопировать файл


проходил мимо решил заглянуть ©   (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]


> что делать ума не приложу.


не прикладывай, даже два не прикладывай - не выйдет.


Наверх

Титульная страница Поиск, карта сайта Написать письмо