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

← →
проходил мимо решил заглянуть (2006-10-13 11:01) [0]

Уважаемые мастера подскажите пожалуйста как скопировать файл если знаеш имя, а расширение неизвестно. CopyFile нужно полное имя файла, что делать ума не приложу. Заранее спасибо.

← →
Jeer © (2006-10-13 11:03) [1]

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

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

← →
проходил мимо решил заглянуть (2006-10-13 11:05) [2]

Что не выйдет ум приложить или файл скопировать :)

← →
Elen © (2006-10-13 11:09) [3]

> копировать файл если знаеш имя, а расширение неизвестно

Копировать все файлы с этим именем. Точно не ошибешся :)

← →
проходил мимо решил заглянуть (2006-10-13 11:19) [4]

Elen © (13.10.06 11:09) [3]
Копировать все файлы с этим именем. Точно не ошибешся :)

Именно это я и хочу но как это сделать.

← →
Elen © (2006-10-13 11:21) [5]

> проходил мимо решил заглянуть

Ха ! Так это в цикле надо делать через FindFirst - FindNext

← →
проходил мимо решил заглянуть (2006-10-13 11:25) [6]

Уважаемая Elen © бооооольшое вам спасибо. Очень вам благодарен, что вы ответили на вопрос а не начали ерничать как некоторые. :)

> проходил мимо решил заглянуть

На дорожку тебе :
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;

Удалено модератором
Примечание: Offtopic

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