Rechercher fichier avec filtre et effacer repertoire avec fichier

Soyez le premier à donner votre avis sur cette source.

Vue 7 187 fois - Téléchargée 905 fois

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"

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
25
Et les auteurs sont...?
yoghisan
Messages postés
221
Date d'inscription
samedi 10 mai 2003
Statut
Membre
Dernière intervention
2 juin 2005
1
Voila quelques informations que j'ai retrouvé

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.