TSHfileopstruct

← →
Skif (2003-07-15 12:32) [0]

Доброе время суток.
Как использую данную функцию переименовать группу файлов. Т.е. имеются следующие файлы "файл.аа1", "файл.аа2" и т.д. в "файл.бб1", "файл.бб2". Заранее благодарен. Просьба цикл не предлогать.

← →
Orion2 (2003-07-15 12:44) [1]

Не уверен точно, но попробуй указать:
источник: файл.аа1#0файл.аа2#0#0
приемник: файл.бб1#0файл.бб2#0#0

#0 - нулевой символ

← →
Prov (2003-07-15 12:51) [2]

> Не уверен точно, но попробуй указать:
> источник: файл.аа1#0файл.аа2#0#0
> приемник: файл.бб1#0файл.бб2#0#0
>
> #0 - нулевой символ

Не получиться так, только что попробовал Ж))

uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var FOS: TSHFileOpStruct;
begin
FillChar(FOS, SizeOf(FOS), 0);
with FOS do
begin
FOS.Wnd:= Handle;
FOS.wFunc:= FO_RENAME;
FOS.pFrom:= "C:\aaa.aaa";
FOS.pTo:= "C:\ccc.ddd";
FOS.fFlags:= FOF_SILENT or FOF_NOCONFIRMATION;
( FOS)

> Не уверен точно, но попробуй указать:
> источник: файл.аа1#0файл.аа2#0#0
> приемник: файл.бб1#0файл.бб2#0#0
>
> #0 - нулевой символ

Не получиться так, только что попробовал Ж))

uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var FOS: TSHFileOpStruct;
begin
FillChar(FOS, SizeOf(FOS), 0);
with FOS do
begin
FOS.Wnd:= Handle;
FOS.wFunc:= FO_RENAME;
FOS.pFrom:= "C:\aaa.aaa";
FOS.pTo:= "C:\ccc.ddd";
FOS.fFlags:= FOF_SILENT or FOF_NOCONFIRMATION;
FOS.hNameMappings:= nil;
end;
SHFileOperation(FOS);
end;

← →
Skif (2003-07-15 13:06) [3]

Вы не поняли. Файлы имею одно имя, расширение отличается только. И мне нужно не один файл а НЕСКОЛЬКО

← →
Orion2 (2003-07-15 13:12) [4]

> Skif
Ты проюовал, что я написал? Я сам не пробоавал :)), но 70%, что это будет работать.

← →
Orion2 (2003-07-15 13:12) [5]

> Skif
Ты пробовал, что я написал? Я сам не пробоавал :)), но 70%, что это будет работать.

← →
Skif (2003-07-15 13:17) [6]

ДА. В нелпах писано, что можно группу, а на практике нет. У кого какие соображения?

TSHfileopstruct Найти похожие ветки