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

Вниз

Как переименовать файл или группу файлов по маске?   Найти похожие ветки 

← →
DimaS ©   (2003-07-17 13:42) [0]

Как переименовать файл или группу файлов по маске, например
по маске (*.doc) или (W?n*.d*) ?

---

← →
Anatoly Podgoretsky ©   (2003-07-17 13:51) [1]

ShFileOperation

---

← →
DimaS ©   (2003-07-17 13:53) [2]

спасибо, попробую

---

← →
Prov ©   (2003-07-17 14:25) [3]

uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var OpStruc: TSHFileOpStruct;
Begin
ZeroMemory(@OpStruc, SizeOf(OpStruc));
with OpStruc do
begin
OpStruc.Wnd:= Handle;
OpStruc.wFunc:= FO_RENAME;
OpStruc.pFrom:= "C:\1.doc";
OpStruc.pTo:= "C:\Renamed.txt";
OpStruc.fFlags:= FOF_SILENT;
OpStruc.fAnyOperationsAborted:= false;
OpStruc.hNameMappings:= nil;
end;
ShFileOperation (OpStruc);
end;

---

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

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

Наверх

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