Entre para seguir isso  
Seguidores 0

Verificar Se Arquivo Existe E Renomear.

5 posts neste tópico

Postado

É 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?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado

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! ;)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado

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

Deu muito certo.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Entre para seguir isso  
Seguidores 0