Ir para conteúdo
Fórum Script Brasil
  • 0

Deletando Todos Arquivos Da Pasta


Muniz

Pergunta

Salve!

É possível um procedimento para deletar TODOS arquvios de uma determindada pasta?

Consegui deletar UM arquivo com o seguinte código:

AssignFile(A,'c:\backup\assina.exe');

{$I-}

Erase(A);

Já tentei SEM SUCESSO:

AssignFile(A,'c:\backup\*.*');

{$I-}

Erase(A);

Grato,

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Ai vai:

declare no uses da unit: Shellapi, filectrl;

function DeleteFolder(FolderName: String; LeaveFolder: Boolean): Boolean;
var
  r: TshFileOpStruct;
begin
  Result := False;
  if not DirectoryExists(FolderName) then
  Exit;
  if LeaveFolder then
  FolderName := FolderName + ' *.* '
  else
  if FolderName[Length(FolderName)] = ' \ ' then
  Delete(FolderName,Length(FolderName), 1);
  FillChar(r, SizeOf(r), 0);
  r.wFunc := FO_DELETE;
  r.pFrom := PChar(FolderName);
  r.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  Result := ((ShFileOperation(r) = 0) and (not r.fAnyOperationsAborted));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
  Dir := 'C:\TESTE';
  deleteFolder(Dir,false);
  if not DirectoryExists(Dir) then
     ForceDirectories(Dir);
end;

wink.gif

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...