Fórum Alterar nome do diretório #149076
24/03/2003
0
Boa tarde pessoal!
Tenho hoje [b:440b4b8b89]2 grandes dúvidas[/b:440b4b8b89], e ficaria muito agradecido se alguém pudesse me ajudar:
[b:440b4b8b89]1.ª[/b:440b4b8b89] - como faço para [b:440b4b8b89]renomear o nome de um diretório[/b:440b4b8b89], por exemplo: tenho o dir Lj0001 e quero alterálo para Lj0065.
[b:440b4b8b89]2.ª [/b:440b4b8b89]- tenho vários arquivos texto que também tenho que alterar, são mais ou menos un 100 e tenho que alterar sempre o mesmo texto. Nesses arquivos tenho em várias linhas a palavra digamos por exemplo ´casa´, e tenho que alterá-la para ´apartamento´. Preciso criar uma rotina que leia todos os arquivos texto de um certo diretório e quando ele encontrar a palavra ´casa´, ela altere para a palavra ´apartamento´.
Mais uma vez, muito obrigado!
Angelo
Tenho hoje [b:440b4b8b89]2 grandes dúvidas[/b:440b4b8b89], e ficaria muito agradecido se alguém pudesse me ajudar:
[b:440b4b8b89]1.ª[/b:440b4b8b89] - como faço para [b:440b4b8b89]renomear o nome de um diretório[/b:440b4b8b89], por exemplo: tenho o dir Lj0001 e quero alterálo para Lj0065.
[b:440b4b8b89]2.ª [/b:440b4b8b89]- tenho vários arquivos texto que também tenho que alterar, são mais ou menos un 100 e tenho que alterar sempre o mesmo texto. Nesses arquivos tenho em várias linhas a palavra digamos por exemplo ´casa´, e tenho que alterá-la para ´apartamento´. Preciso criar uma rotina que leia todos os arquivos texto de um certo diretório e quando ele encontrar a palavra ´casa´, ela altere para a palavra ´apartamento´.
Mais uma vez, muito obrigado!
Angelo
Anonymous
Curtir tópico
+ 0
Responder
Posts
24/03/2003
Carnette
Boa tarde pessoal!
Tenho hoje [b:0f1dafe555]2 grandes dúvidas[/b:0f1dafe555], e ficaria muito agradecido se alguém pudesse me ajudar:
[b:0f1dafe555]1.ª[/b:0f1dafe555] - como faço para [b:0f1dafe555]renomear o nome de um diretório[/b:0f1dafe555], por exemplo: tenho o dir Lj0001 e quero alterálo para Lj0065.
[b:0f1dafe555]2.ª [/b:0f1dafe555]- tenho vários arquivos texto que também tenho que alterar, são mais ou menos un 100 e tenho que alterar sempre o mesmo texto. Nesses arquivos tenho em várias linhas a palavra digamos por exemplo ´casa´, e tenho que alterá-la para ´apartamento´. Preciso criar uma rotina que leia todos os arquivos texto de um certo diretório e quando ele encontrar a palavra ´casa´, ela altere para a palavra ´apartamento´.
Mais uma vez, muito obrigado!
Angelo
Renomear Diretorio...
--------------------------------------------------------------------------
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;
----------------------------------------------------------------------------------
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)