Rechercher fichier avec filtre et effacer repertoire avec fichier

Télécharger le projet
Commenter

Description

Ce source me semble intéressant sur deux points :
- Un composant (scrute.pas) qui permet de scruter des dossiers et des fichiers dans un répertoire défini en appliquant le ou les filtres que l'on souhaite.
- Une fonction simple qui permet d'effacer un repertoire et tout son contenu (possibilité de mettre à la corbeille)

L'exemple traité sur le composant et la fonction est criticable car j'efface les nombreuses fichiers que génère delphi (donc à manipuler avec précaution).

Source / Exemple : 


Une partie du code

uses
  ShellApi;

function TForm1.EffaceDossierEtFichier(s : string): Boolean;
var SHFileOpStruct : TSHFileOpStruct;
begin
  with SHFileOpStruct do begin
    Wnd := 0;
    wFunc := FO_DELETE;
    pFrom := PChar(s+#0+#0);
    pTo := nil;
    // Pour effacer définitivement sans questionnement
    fFlags := FOF_NOCONFIRMATION or FOF_SILENT; 
    // Pour mettre a la corbeille
    //    fFlags := FOF_ALLOWUNDO;
    // Vous pouvez aussi combiner l'ensemble 
    hNameMappings := nil;
    lpszProgressTitle := nil;
  end;
  Result := ShFileOperation(SHFileOpStruct) = 0;
end;

Conclusion :


Ayant trouvé ca sur le web en ayant modifié et retouché à mon besoin, je tiens à remercier les auteurs d'origine...

Fonction :
- DelphiCool (source 11935) modification très utile à pFrom
- Aussi un autre que je ne trouve plus

Composant
- Michel Bardou sur "www.phidels.com"
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (yoghisan)