| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
jorgelucas
Novato
Registrado: Quinta-Feira, 27 de Janeiro de 2011
Mensagens: 13
|
 Enviada: Dom Fev 06, 2011 3:33 pm Assunto: [ajuda]Delete File |
 |
|
Galera eu to presisando de uma ajuda !
Olha Eu Estou Criando Um Programa "limpador de logs" para um jogo conhecido !
1º Vai Temque selecionar a pasta do jogo
1 sEdit.Text Usando Selec diretory , isso eu ja fiz agora eu to com problema na parte do delete file !
| Código: | procedure ApagaPasta(pasta: string);
var
Arquivo: TSearchRec;
begin
if FindFirst(pasta+'*.*', 0, Arquivo) = 0 then
begin
repeat
DeleteFile(pasta+Arquivo.Name);
until FindNext(Arquivo) <> 0;
FindClose(Arquivo);
end;
if (RemoveDir(pasta) = TRUE) then
showmessage('Coisas ruins foram apagadas!')
else
showmessage('Falha ao apagar as coisas ruins');
end; |
Button
| Código: | procedure TForm1.sBitBtn2Click(Sender: TObject);
begin
if scheckbox1.checked = true then
ApagaPasta(sEdit1.Text);
end; |
Bom assim ele está para deletar a pasta que estiver no sEdit1.Text
mas eu nao quero que delete a pasta que estiver selecionada no sEdit1.Text e sim uma pasta dentro dessa pasta ! como eu posso faser isso ?
Se Voces Nao Entenderam Fala Ai !
@Edit: parece que ele nao deleta a pasta que estiver arquivo dentro por favor olhem isso para mim |
|
| Voltar ao Topo |
|
 |
Fpierin
Novato
Registrado: Sexta-Feira, 2 de Mai de 2008
Mensagens: 30
Localização: São Paulo
|
| Enviada: Qua Fev 09, 2011 11:16 am Assunto: |
|
|
Olá jorgelucas,
Você pode tentar algo do tipo:
| Código: |
procedure ApagaPasta(const LocalizacaoDaPastaMae: String);
var
DefinicaoDeArquivo: TSearchRec;
ArquivoEncontrado : TFileName;
begin
SetCurrentDir(LocalizacaoDaPastaMae);
if FindFirst('*', faDirectory, DefinicaoDeArquivo) = 0 then
begin
repeat
ArquivoEncontrado := LocalizacaoDaPastaMae + '\' + DefinicaoDeArquivo.Name;
if (DefinicaoDeArquivo.Attr = faDirectory) then
RemoveDir(ArquivoEncontrado)
else
DeleteFile(ArquivoEncontrado);
until not (FindNext(DefinicaoDeArquivo) = 0);
FindClose(DefinicaoDeArquivo);
end;
end;
|
Abraços |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
