Вниз
Скачать: CL | DM;

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

 
проходил мимо решил заглянуть   (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 © бооооольшое вам спасибо. Очень вам благодарен, что вы ответили на вопрос а не начали ерничать как некоторые. :)


 
Elen ©   (2006-10-13 11:26) [7]


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

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


 
Elen ©   (2006-10-13 11:27) [8]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c
11-1137157074
-=Mike=-
2006-01-13 15:57
2006.10.29
Вопрос по отображению окна


5-1141656562
Belorus
2006-03-06 17:49
2006.10.29
Raize Components v4


15-1160137869
oldman
2006-10-06 16:31
2006.10.29
Нехватка виртуальной памяти...


15-1160071501
Prohodil Mimo
2006-10-05 22:05
2006.10.29
Прблема с DVD


6-1149542592
CShooter
2006-06-06 01:23
2006.10.29
NMpop31.GetMailMessage(NMpop31.MailCount) выдает ERangeError




   Наверх