Procedure that undestand wildcard

[LemonParty]

Hello.

I need to delete files from directory that is pointed like

*.txt
*.pas
And so on

Is there a procedure that undestand a wildcard?

[d2010]

Old-Style , but you do not delete inside deep-all-subdirs.

Code: [Select]

Function SHFileOperation_FO_DELTREE(filepath: h_types.TFileName3):string;
    var
      tfileinfo: TSearchRec;
      r: TFileName;
      retcode,atribute: longint;
    begin
      result:='';
      r := filepath + '\*';
      writeln(r);
      retcode := SysUtils.FindFirst(r, faAnyFile - faVolumeID, tfileinfo);
      while retcode = 0 do
        begin
          if (tfileinfo.attr and faDirectory = faDirectory) then
            begin
            if (tfileinfo.name <> '.') and (tfileinfo.name <> '..') then
                result:=concat(result,SHFileOperation_FO_DELTREE(filepath + '\' + tfileinfo.name));
            end
          else
            begin
              atribute := tfileinfo.attr;
              atribute := atribute and not faReadOnly;
              atribute := atribute and not faArchive;
              atribute := atribute and not faSysFile;
              atribute := atribute and not faHidden;
              FileSetAttr(filepath + '\' + tfileinfo.name, atribute);
              if DeleteFile(pchar(filepath + '\' + tfileinfo.name)) = false then
                 result:=concat(result,filepath + '\' + tfileinfo.name,#13#10);
            end;
          retcode := SysUtils.FindNext(tfileinfo);
        end;
      SysUtils.FindClose(tfileinfo);
      atribute := FileGetAttr(filepath);
      atribute := atribute and not faReadOnly;
      atribute := atribute and not faArchive;
      atribute := atribute and not faSysFile;
      atribute := atribute and not faHidden;
      FileSetAttr(filepath, atribute);
      if RemoveDir(filepath) = false then
            result:=concat(result,'RMdir ', filepath,' =Failed'#13#10);
    end;


Code: [Select]

Procedure DelFilesFromDir(Const Directory, FileMask: string; DelSubDirs: boolean);
      var
        SourceLst: string;
        FOS: TSHFileOpStruct;
      begin
        FillChar(FOS, sizeof(FOS), 0);
        // FOS.Wnd := Application.MainForm.Handle;
        FOS.Wnd := application_handle;
        FOS.wFunc := FO_DELETE;
        SourceLst := Directory + '\' + FileMask + #0;
        FOS.pFrom := pchar(SourceLst);
        if not DelSubDirs then
          FOS.fFlags := FOS.fFlags OR FOF_FILESONLY;
        // Remove the next line if you want a confirmation dialog box
        FOS.fFlags := FOS.fFlags OR FOF_NOCONFIRMATION;
        // Uncomment the next line for a "silent operation" (no progress box)
        // FOS.fFlags := FOS.fFlags OR FOF_SILENT;
        SHFileOperation(FOS);
      end;


[Thaddy]

Look into the sources of the utility delp that comes with fpc and has a cross platform way of deleting things safely.
Just copy and paste.

[paweld]

Code: Pascal  [Select][+][-]

1. uses
2.   FileUtil;
3.  
4. var
5.   sl: TStringList;
6.   i: Integrr;
7. begin
8.   sl := FindAllFiles('d:\my files' {path}, '*.txt;*.pas' {mask}, False {search in subdirectories});
9.   for i := 0 to sl.Count - 1 do
10.     DeleteFile(sl[i]);
11.   sl.Free;
12. end

[LemonParty]

Thank you paweld. That is what I looking for.

[Thaddy]

Be carefull to use it for deletions, though... I warned you.

[Bart]

The Masks unit has functions for that purpose exactly (FindAllFiles() uses them).

Bart

[n7800]

Look into the sources of the utility delp that comes with fpc and has a cross platform way of deleting things safely.
Just copy and paste.

What exactly do you mean by "safely" delete? A quick glance at the source didn't reveal anything.