Muniz Postado Agosto 12, 2004 Denunciar Share Postado Agosto 12, 2004 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, Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Progr'amador Postado Agosto 12, 2004 Denunciar Share Postado Agosto 12, 2004 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; Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Muniz
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
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.