Скачать: 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 вся ветка

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



Память: 0.47 MB
Время: 0.02 c