Verificar Se Arquivo Existe E Renomear.

[ReX]

É isso:

Tem um arquivo por exemplo .\Pasta\Arquivo.txt, dai eu tenho que renomear para Arquivo.rex

E preciso que quando o arquivo .\Pasta\Arquivo.txt existir mostre uma mensagem de mais de uma linha em uma MessageBox e renomeie. E quando não existir mostrar outra MessageBox de mais de uma linha.

Eu não saco quase nada de Delphi. Dá pra fazer?

[Churc]

opa

da sim, faz o seguinte

if FileExists('Caminho do Arquivo\Arquivo.txt') then
begin
  MessageBox(Handle,
  'O Arquivo existe'+#13+
  'Aqui a segunda linha :)', 'Titulo da mensagem', MB_OK or MB_ICONINFORMATION);
  RenameFile('Caminho do Arquivo\Arquivo.txt', 'Caminho do Arquivo\Arquivo.rex');
end
else
MessageBox(Handle,
'O Arquivo não existe...'+#13+
'Aqui a segunda linha :)', 'Titulo da mensagem', MB_OK or MB_ICONERROR);

pra cada nova linha na mensagem você adiciona um +#13+

abraço

[Micheus]

ReX, se for apenas para trocar a extensão, é possível utilizar a função ChangeFileExt para facilitar o trabalho.

Ex.: RenameFile(File_Name, ChangeFileExt(File_Name, '.rex'));

apenas uma dica com relação a contatenação de códigos ASCII via "#". É possível omitir o "+" que vem entre ele e um string (exceto quando ficam em linhas diferentes no código fonte).

Ex.:

1) 'O Arquivo não existe...'#13 +
   'Aqui a segunda linha'
2) #13'Texto qualquer'#13'Outra linha'#13#44;

[]s

[Churc]

opa

apenas uma dica com relação a contatenação de códigos ASCII via "#". É possível omitir o "+" que vem entre ele e um string (exceto quando ficam em linhas diferentes no código fonte).

uia eu não sabia disso rs pra mim teria que adicionar o + por ser um caracter fora do contexto da string rsr valeu pela dica! ;)

[ReX]

Nossa vlw mesmo! Desculpa a demora pra responder. :D

Deu muito certo.