Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.04;
Скачать: CL | DM;

Вниз

Copyfile RenameFele по маске   Найти похожие ветки 

 
tatar   (2004-03-18 08:40) [0]

Уважаемые мастера. Подскажите как заставить стандартные функции Delphi Copyfile, RenameFele, MoveFile, DeleteFile. Копировать .... задавая маску. Например

RenameFile("C:\test\*.*", "c:\test1\*.txt");


 
MBo ©   (2004-03-18 08:43) [1]

С помощью Findfirst/FindNext


 
tatar   (2004-03-18 08:46) [2]

да, но при переименовании имена файлов придется генерировать самому, может есть какой-нибудь стандартный выход ?


 
MBo ©   (2004-03-18 08:53) [3]

Придется самому.
Альтернатива - только вызов системной команды RENAME.


 
tatar   (2004-03-18 08:56) [4]

>>>>Альтернатива - только вызов системной команды RENAME.

это запуск внешней программы на сколько я понял, если нет просьба разьяснить


 
tatar   (2004-03-18 08:58) [5]

Еще вопрос если пользоваться виндовыми TSHFileOpStruct будет тот-же результат(т.е. только один файл)


 
tatar   (2004-03-18 09:57) [6]

up


 
$tranger ©   (2004-03-18 10:10) [7]

Я нашел другой выход - FileListBox. И с помощью цикла считываешь имена файлов
FOR i:=0 TO FileListBox1.Items.Count DO
begin
OldName:=DirectoryListBox1.Directory + "\" + Files.Items.Strings[i];
NewName:=DirectoryListBox1.Directory + "\" + Имя файла;
RenameFile (OldName, NewName);
end;


 
$tranger ©   (2004-03-18 10:11) [8]

А маску делать через FilterComboBox (оба в Win3.1)


 
tatar   (2004-03-18 10:28) [9]

А без использования компонент (читай паскале) можно?


 
tatar   (2004-03-18 12:30) [10]

up


 
Cobalt ©   (2004-03-18 12:32) [11]

Можно использовать TStringList, или, на худой конец, просто динамический массив.


 
tatar   (2004-03-18 13:43) [12]

а можно пример для лучшего понимания


 
Cobalt ©   (2004-03-18 13:52) [13]

пишите в Дельфи "TStringList" и нажимаете клавишу F1.
Внимательно читаете.


 
tatar   (2004-03-18 14:32) [14]

я знаю что такое TStringList, а вот как это может помочь не продставляю


 
Fay ©   (2004-03-18 14:43) [15]

2tatar   (18.03.04 08:40)  
Тебе уже ответили (MBo).
За время с (18.03.04 08:40) по (18.03.04 14:32) эту задачу можно было решить раз ~100.


 
tatar   (2004-03-18 14:46) [16]

Fay спасибо за ответ :-\



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

Текущий архив: 2004.04.04;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.065 c
3-1078388326
Olegka
2004-03-04 11:18
2004.04.04
Calculated Fields


7-1074495889
Прямой
2004-01-19 10:04
2004.04.04
Написать что-то вроде Image Drive


7-1074772584
andrey__
2004-01-22 14:56
2004.04.04
связь с Linux-вой машиной


7-1074653880
msgipss
2004-01-21 05:58
2004.04.04
Узнать, установлен ли на компьютере Web Server ?


1-1079085420
ORMADA
2004-03-12 12:57
2004.04.04
Синхронизация 2-х Memo