Вниз
Скачать: 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.027 c
15-1159716860
RASkov
2006-10-01 19:34
2006.10.29
[Error] D7Paket.dpk(33):


15-1160029772
DiamondShark
2006-10-05 10:29
2006.10.29
Международный день работников образования


9-1137663613
Control
2006-01-19 12:40
2006.10.29
ShareWare игры


2-1161017861
WINNT
2006-10-16 20:57
2006.10.29
Трассировка кода


2-1161003880
evgenij_
2006-10-16 17:04
2006.10.29
Создать Label




   Наверх