i need a way to find folders under given path that do not contain specified files, like *.nfo, *.xml.tags (my custom format) etc.[a href="index.php?act=findpost&pid=292114"][{POST_SNAPBACK}][/a]

could you share your sources? i've done some delphi coding in the past and would like to try again

// NotHere - Copyright Kwanbis - License GPL
program nothere;


{$APPTYPE CONSOLE}

uses
  SysUtils;

Procedure Directorio(StartDir: AnsiString; Archivo: AnsiString);
var DirInfo: TSearchRec; r: Integer; found: boolean;
begin
//  Writeln('Processing Directory: <' + StartDir + '>');
  found := false;
  SetCurrentDir(StartDir);
  r := FindFirst(StartDir + '\*.*', FaDirectory, DirInfo);
  while r = 0 do  begin
    if UpperCase(DirInfo.Name) = UpperCase(archivo) then Found := True;
    r := FindNext(DirInfo);
  end;
  if Not Found then Writeln('NOT Found ' + archivo + ' in <' + StartDir + '>');
  r := FindFirst(StartDir + '\*.*', FaDirectory, DirInfo);
  while r = 0 do  begin
    if (DirInfo.Attr and FaDirectory = FaDirectory) and (DirInfo.Name <> '.') and (DirInfo.Name <> '..') then
      Directorio(StartDir+'\'+DirInfo.Name, Archivo);
    r := FindNext(DirInfo);
  end;
  SysUtils.FindClose(DirInfo);
end;

var i: integer;

begin
  WriteLn('NotHere 0.1 by Kwanbis - Developed in Borland Delphi.');
  if ParamCount < 2 then begin
    WriteLn('Syntaxis: nothere fullpath filename');
    Halt(1);
  end;
  Write('Parameters: ');
  for i := 0 to ParamCount do Write(ParamStr(i));
  WriteLn;
  WriteLn;
  Directorio(ExcludeTrailingPathDelimiter(ExpandFileName(ParamStr(1))), ParamStr(2));
  WriteLn('DONE. Press <ENTER> to finish.');
  ReadLn;
end.