| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TSHfileopstruct

Skif ©   (2003-07-15 12:32:00) 

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

---

Skif   (2003-07-15 13:17:00) [1]

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

---

Orion2   (2003-07-15 13:12:00) [2]

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

---

Orion2   (2003-07-15 13:12:00) [3]

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

---

Skif   (2003-07-15 13:06:00) [4]

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

---

Prov   (2003-07-15 12:51:00) [5]

> Не уверен точно, но попробуй указать:
> источник: файл.аа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;

---

Orion2   (2003-07-15 12:44:00) [6]

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

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

---

Наверх