Renomear Pasta

Delphi

18/08/2011

Não consigo renomear pasta com a rotina abaixo. Alguém pode me ajudar a fazer isso?   
procedure TFileFinder.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;
Pjava

Pjava

Curtidas 0

Respostas

Leonardo Xavier

Leonardo Xavier

18/08/2011

cara tenta isso:

[CODE]
procedure TForm1.Button1Click(Sender: TObject);
var
pasta1, pasta2: PChar;
begin
pasta1:=''c:OldDirectory'';
pasta2:=''c:NewDirectory'';
MoveFile(pasta1,pasta2);
end;

[\CODE]
GOSTEI 0
Pjava

Pjava

18/08/2011

Essa função ela move os arquivos. O que eu quero é renomear a pasta sem mover os arquivos. Só renomear a pasta, tipo: De D:\Muda para D:\Novo, por exemplo. E os arquivos lá dentro deve permanecer.
GOSTEI 0
Cesarrocha

Cesarrocha

18/08/2011

RenameFile('c:\pasta', c:\pastaRENOMEADA')

Sendo primeiro parametro o arquivo que sera renomeado e o segundo parametroo novo nome para ele.
Qualquer duvida posta ai.
Espero que seja útil.
GOSTEI 0
Cesarrocha

Cesarrocha

18/08/2011


RenameFile('c:\pasta', c:\pastaRENOMEADA')

Sendo primeiro parametro o arquivo que sera renomeado e o segundo parametroo novo nome para ele.
Qualquer duvida posta ai.
Espero que seja útil.
 




Faltou uma aspas simples ali  :B
RenameFile('c:\pasta', 'c:\pastaRENOMEADA');
GOSTEI 0
POSTAR