Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

Criar/Remover/Renomear/Verificar Existencia de Diretorios


- Returns
 Compartilhar

Posts Recomendados

Eae , iniciei meu estudo em ah uns dois dias , e ja peguei umas coisas dahora ja.

uma delas é essa Remover ,Renomear, Criar/ verificar se eles existem. Diretorios.

 

Vamos la eu criei um formulário com 2 Edits e 4 Buttons - Remover , Criar , Verificar se Existe , Renomear. ( o segundo edit você usara para renomear o diretorio.)

para Criar um Diretorio usaremos CreateDir(Criar Diretorio)

eu usei o edit1 para organizar melhor ele (colocar nome / aonde será criado)


CreateDir(edit1.Text);
É necessário se cadastrar para acessar o conteúdo.

agora verifique de novo se o diretorio foi criado certo , depois digite qualquer coisa para ver se da a mensagen de erro certo.

o resto farei igual :

Button Remover

RemoverDiretorio


if RemoveDir(edit1.text) then
showmessage('Removido')
else
showmessage('diretorio não existe');
end;
É necessário se cadastrar para acessar o conteúdo.

Button renomear

 

Renomeia o Diretorio


if RenameFile(edit1.text,edit2.text)then
showmessage('Renomeado')
else
showmessage('Erro');
end;

ai agente oque estiver no Edit1 , será renomeado para o 2

Exemplo :

Edit1 = c:\haha.txt

Edit2 = c:\outronome.txt

o hahah.txt terá o nome de outronome.txt

 

é isso ae pessoal sou bem iniciante e estou trazendo isso para outros iniciantes como eu :}

 

não está com Cores pois sou ruim com isso..

 

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.