Mudar Extensao de Varios Arquivos...

Question

Depois de Tanto Tentar, eu Me Rendo !!! :o

Seguinte:

Tenho Uma Pasta Minha Com Varios Arquivos Com Exten�o Ex. teste1.txt, Teste2.txt etc...

Quero Mudar apenas a extens�o dos arquivos ao mesmo tempo Ex. Teste1.doc, Teste2.doc Etc..

Obs: Mudar de .txt para .doc

[]

Wolverine · Answer

Amigo eu � sei mudar mais isso pode lhe ajudar:

{ - Coloque um Button no Form;

- Altere o evento OnClick do Button conforme abaixo: }

procedure TForm1.Button2Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
begin
I := FindFirst(�c:\Teste\*.*�, faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then
if not DeleteFile(�c:\Teste\� + SR.Name) then
ShowMessage(�N�o consegui excluir c:\Teste\� + SR.Name);
I := FindNext(SR);
end;
end;
Observa��es

No exemplo acima todos os arquivos do diret�rio c:\Teste ser�o exclu�dos. CUIDADO! Arquivos exclu�dos desta forma n�o v�o para a lixeira.

vc agora deve alterar o delete pelo alterar,

espero ter dado um luz
Qquer coisa estou ai

Barcelos · Answer

Ol� amigo,Para alterar a extens�o de um arquivo voc� deve usar a fun��o ChangeFileExt. A declara��o da fun��o �:ChangeFileExt(const FileName, Extension: string): string;O primeiro par�metro � o nome do arquivo e o segundo a nova extens�o.Espero ter ajudado,Barcelososbarcelos@hotmail.com...

Alves · Answer

Obrigado a vcs que responderam, mas fico a resposta do colega Barcelos.A Resposta do Volverine ja conhe�o e uso para contar os arquivos na pasta.Obrigado a Voces...Vou testar e ver se funciona.[]...

Alves · Answer

Ainda n�o estou conseguindo fazer mudar a extens�o dos arquivosalguem mais mais sugestoes ??...

Cebikyn · Answer

Use:[code:1:ea882b7703]var  Arquivo: String; // vari�vel contendo o nome do arquivo .txtbegin  // Salva o arquivo como .doc  CopyFile(PChar(Arquivo), PChar(ChangeFileExt(Arquivo,�.doc�)),false);  // Deleta o original (.txt), pois n�o � mais necess�rio  DeleteFile(Arquivo);end;[/code:1:ea882b7703]Adapte ao c�digo do Wolverine para mudar todos os arquivos de uma pasta....

Fabio.hc · Answer

Tente assim:[code:1:df2f49d858]RenameFile(�arquivo.txt�,�arquivo.doc�);[/code:1:df2f49d858]...

Alves · Answer

Agora sim consegui fazer funcionar... com a ajuda de todos

O c�digo ficou parecido com este

procedure TTela_Cripto.Timer1Timer(Sender: TObject); var I: integer; Origem: String; begin I := FindFirst(�c:\\pasta\*.txt�, faAnyFile, SR); while I = 0 do Begin if (SR.Attr and faDirectory) <> faDirectory then begin inc(Conta); Origem := �c:\pasta\� + SR.Name; CopyFile(PChar(Origem), PChar(ChangeFileExt(Origem,�.doc�)),false); DeleteFile(Origem); Sleep(100); Form1.StatusBar1.Caption := �Renomeando o Arquivo � + IntToStr(I) + Origem; Form1.StatusBar1.Refresh; end; I := FindNext(SR); end; end;

[/i]

F�rum Mudar Extensao de Varios Arquivos... #204332