[Delphi] Renomear Arquivos em Massa

[TH3 CH4OS 4]

Ola , hj eu vou ensinar como utilizar a procedure que eu criei para renomear arquivos em massa.

 

Primeiro declare na Uses :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Agora declare a seguinte Procedure:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Para utilizar :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Exemplo :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Vai renomear todos os arquivos da pasta acima para ".exe".

 

Créditos : TH3 CH4OS

 

 

[luxfer 0]

gambiarra total!

pior jeito possível de se renomear arquivos

[Ryokusei 14]

Por que não usa FindFirst e FindNext?

Fazer os procedimentos por um batch não é uma boa alternativa.