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

← →
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;

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