Как изменить имя каталога

← →
Dron © (2004-04-10 16:42) [0]

Подскажите,как мне изменить имя каталога.

← →
Songoku © (2004-04-10 16:48) [1]

Я думаю .... MoveFile
точно не знаю .. не где проверить!

← →
Евгения (2004-04-12 17:30) [2]

uses ShellAPI;

procedure Rename(AHandle: THandle; AFromDir, AToDir: String);
var
SHFileOpStruct: TSHFileOpStruct;
begin
with SHFileOpStruct do
begin
Wnd := AHandle;
wFunc := FO_RENAME;
pFrom := PChar(AFromDir);
pTo := PChar(AToDir);
fFlags := 0;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
ShFileOperation(SHFileOpStruct);
end;

Пример:
Rename(Handle,"C:\tmp\2.txt","C:\tmp\1.txt" );

← →
easy © (2004-04-12 17:52) [3]

RenameFile("C:\Temp\5879\","C:\Temp\5879_new\");

To [1]
:)

Как изменить имя каталога Найти похожие ветки