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

Вниз

переименовать ПАПКУ   Найти похожие ветки 

← →
Homa_Programer ©   (2004-11-25 23:44) [0]

Народ подскажите какой функцией или процедурой можно переименовать папку с файлами в Дельфи...

---

← →
Yanis ©   (2004-11-26 00:11) [1]

Ну, например:

MoveFile


---

← →
АП   (2004-11-26 00:24) [2]

Первое, что пришло на ум - посмотреть в DelphiWorld:

Переименование каталога
-----------------------------------------------------------------

uses
 ShellApi;

procedure RenameDir(DirFrom, DirTo: string);
var
 shellinfo: TSHFileOpStruct;
begin
 with shellinfo do
 begin
   Wnd    := 0;
   wFunc  := FO_RENAME;
   pFrom  := PChar(DirFrom);
   pTo    := PChar(DirTo);
   fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or
             FOF_SILENT or FOF_NOCONFIRMATION;
 end;
 SHFileOperation(shellinfo);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 RenameDir("C:\Dir1", "C:\Dir2");
end;

Не проветял!!

---

← →
programania ©   (2004-11-27 00:18) [3]

if not renameFile(f1,f2) then
showMessage("Закройте все программы где открыта папка "+f1);

---

← →
Homa_Programer ©   (2004-11-27 01:11) [4]

> АП   (26.11.04 00:24) [2]
> Первое, что пришло на ум

вот тока не все папки переименовываются((( а так работает спасибо...

---

← →
Пыч ©   (2004-11-28 08:18) [5]

SHFileOperation

---

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

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

Наверх

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