Excluir Pastas (RESOLVIDO)

[Vivendo&Aprendendo]

Ola galera

preciso saber como faço para excluir diretórios e não só arquivos...

Alexandre

[Graymalkin]

Dê uma olhada na função RemoveDir().

Abraços,

Graymalkin

[Vivendo&Aprendendo]

cara esse não deu certo ele apaga somente os arquivos e não as pastas...

tentei todos as function RemoveDir, RemoveDirectoryA, RemoveDirectoryW, etc...

Como posso fazer para funcionar...

O problema é o seguinte, tenho um sistema que tem que gerar um arquivo txt, mas antes de gerar ele deve apagar tudo que tem no disquete, pois é gerado no disquete...

Veja ai se pode me ajudar...

Alexandre

[Graymalkin]

Funciona sim, a questão é que o diretório tem que estar obrigatoriamente vazio. Trata-se de apenas um arquivo? Se for, você pode simplesmente removê-lo e depois remover a pasta.

Abraços,

Graymalkin

[Vivendo&Aprendendo]

cara

esse sistema irá ficar instalado em vários escritórios da cidade e o usuário deverá gerar esse disquete, vai que quando ele for gerar o disquete esta cheio de pastas e não caiba o arquivo e outra ele não pode mandar o disquete para o sindicato com outros arquivos dentro somente o arquivo gerado pelo sistema...

Alexandre

[Graymalkin]

Ok, então vou colocar um exemplo aqui de como obter todos os arquivos e diretórios de uma determinada pasta (é claro que você pode especificar somente unidade [por exemplo, A:\] também):

var s: TSearchRec;
    pasta : string;
begin
    pasta := 'c:\teste\';
    FindFirst(pasta+'*.*', faAnyFile, s);
    Repeat
      if s.Attr=faDirectory then
        showmessage('Diretório: ' + s.Name)
      else
        showmessage('Arquivo: ' + s.Name);
    Until FindNext(s) <> 0;
    FindClose(s);
end;

Você pode daí criar uma rotina recursiva para percorrer todos as subpastas apagando cada arquivo (e depois removê-las também).

Abraços,

Graymalkin

[Vivendo&Aprendendo]

Vlw cara

Abs

Alexandre