Fórum Renomear Pasta #406753

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

Curtir tópico

+ 0

Responder

Posts

18/08/2011

Leonardo Xavier

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]

Responder

Gostei + 0

18/08/2011

Pjava

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.

Responder

Gostei + 0

18/08/2011

Cesarrocha

1	`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.

Responder

Gostei + 0

18/08/2011

Cesarrocha

1	`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

1	`RenameFile('c:\pasta', 'c:\pastaRENOMEADA');`

Responder

Gostei + 0