Поиск папок по сети

[Tw1X]

Всем доброго дня, нужна помощь разобраться с функциями поиска.
Необходимо найти по имени папки расположение этой папки в сети.
т.е. в поиске вводим папку "rv" он должен найти все папки rv в сети и вывести
"\\1-pl\rv"
"\\2-pl\tmi\rv" и т.д.
найти папку и показать путь его сетевого расположения.

не список фалов в папке нужно вывести, а именно путь к сетевому расположению папки.

Для поиска файлов(не папок!) я нашел код:

procedure NetworkScan(AFiles : TStrings);
 
  procedure ScanDir(ADir:string);
  var sr:_WIN32_FIND_DATA; fh:THandle; sn:string;
  begin
    fh:=FindFirstFile(PChar(ADir+'*'),sr);
    if fh<>INVALID_HANDLE_VALUE then begin
      repeat
        sn := sr.cFileName;
        if (sn<>'.')and(sn<>'..')and(sn<>'') then begin
          if (sr.dwFileAttributes and faDirectory)<>0
            then ScanDir(ADir+sn+'\')
            else if sn=Form1.edt1.text then
            AFiles.Add(ADir);
          Application.ProcessMessages;
        end;
      until not FindNextFile(fh,sr);
    end;
    Windows.FindClose(fh);
  end;
 
  procedure EnumNet(NetRes:PNetResource);
  var i,res,Handle,count,bufsize:cardinal;
      pr:PNetResource;
      buf:array of byte;
  begin
    bufsize:=16384;
    SetLength(buf,bufsize);
    count:=$FFFFFFFF;
    res := WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_DISK,0,NetRes,Handle);
    if res=NO_ERROR then begin
      repeat
        res:=WNetEnumResource(Handle,count,@buf[0],bufsize);
        if res=NO_ERROR then begin
          pr:=@buf[0];
          for i:=0 to count-1 do begin
            if (pr.dwUsage and RESOURCEUSAGE_CONTAINER)<>0
              then EnumNet(pr);
            if (pr.dwUsage and RESOURCEUSAGE_CONNECTABLE)<>0
              then ScanDir(pr.lpRemoteName+'\');
            inc(pr);
          end;
        end;
      until (res<>NO_ERROR);
      WNetCloseEnum(Handle);
    end;
  end;
 
begin
  EnumNet(nil);
end;

ищет файлы без проблем, нужно чтоб выводило папки, пытался изменить...

procedure ScanDir(ADir:string);
  var sr:tsearchres; fh:THandle; sn:string;
  begin
    fh:=FindFirst(adir,fadirectory,sr);
    if fh<>INVALID_HANDLE_VALUE then begin
      repeat
        sn := sr.name;
        if (sn<>'.')and(sn<>'..')and(sn<>'') then begin
          if (sr.Attr and faDirectory)=sr.attr
            then ScanDir(ADir+sn+'\')
            else if sn=Form1.edt1.text then
            AFiles.Add(ADir);
          Application.ProcessMessages;
        end;
      until FindNext(sr)<>0;
    end;
    Windows.FindClose(fh);
  end;

в чем ошибка?

[min@y™]

обычно, такие вопросы задают после того, как отладчик не помог.
Отладчик не помог?

[Tw1X]

Сообщение от min@y™

обычно, такие вопросы задают после того, как отладчик не помог.
Отладчик не помог?

нет( и гугл не помог.

[min@y™]

показывай.

[evg_m]

       if (sn<>'.')and(sn<>'..')and(sn<>'') then begin
          if (sr.dwFileAttributes and faDirectory)<>0
            then ScanDir(ADir+sn+'\')

        if (sn<>'.')and(sn<>'..')and(sn<>'') then begin
          if (sr.Attr and faDirectory)=sr.attr
            then ScanDir(ADir+sn+'\')

если что-то <>0, то это вовсе не значит что это =sr.attr

http://programmersforum.ru/showthread.php?t=292744

[min@y™]

если что-то <>0, то это вовсе не значит что это =sr.attr

в данном случае проверяется единичный бит (атрибут каталога) в маске, та что пофиг.

[evg_m]

та что пофиг.

(sr.Attr and faDirectory)=sr.attr
48 and 16 = 48 ??????

[min@y™]

48 and 16 = 48 ??????

48 and 16 <> 0
т. е. sr.Attr содержит бит атрибута каталога.

[evg_m]

так и речь была о о том, что НЕЛЬЗЯ сравнивать ОДИН бит (48 and 16) со ВСЕМ блоком атрибутов.
что нельзя использовать ВТОРОЙ код (являющийся цитатой из НЕРАБОТАЮЩЕГО кода ТС). А первый код тоже цитата из ТС (код указанный как первоисточник(основа) для написания ).

[Tw1X]

http://www.delphi-manual.ru/search-f...hp?sample=view
пользовался этим мануалом. там было условие
if (F.Attr and faDyrectory)=F.Attr
then S:='Это каталог';