Cum de a găsi toate fișierele care se potrivesc masca de rețea în dosare comune

Cum de a găsi toate fișierele care se potrivesc masca în rețea partajată dosar?

Bună ziua tuturor!
Știu cum să obțineți o listă cu toate unitățile share dosare. Știu cum să găsiți fișierele de pe computerul local, dar dosarele de rețea?
Poate cineva știe cum să găsească fișiere potrivite „* .exe“ în rețea?

așa nu-i asa?
FindResult: = FindFirst ( "\\ komp \ share" + "* .exe", faAnyFile, SearchRec);
Doar aici e problema: el nu vrea să facă acest lucru. Am scris într-un fel se uită la foldere lorkalnyh, dar în rețea nu este în căutarea.

Un prog nu căutați Un coș de fișiere. Și am nevoie de ea. Cum pentru a obține lista, m-am gândit la mine!

tu sau o eroare de a face în program sau nu doar există nici un astfel de fișier.

Ei bine, în general, am realizat. Problema este că am o listă de foldere, drive-uri pe acțiuni după cum urmează:
\\ 127.0.0.1 \ Dir
Dar dacă e așa: \\ Komp \ Dir, atunci totul este în regulă.
Vă mulțumim!

> FindResult: = FindFirst ( "\\ komp \ share" + "* .exe", faAnyFile,
> # XA0; SearchRec);
> Doar aici e problema: el nu vrea să facă acest lucru.

Ciudate - așa că am făcut.

Puteți arunca o procedură și cum o tratezi

adăugat
FindResult: = FindFirst ( "\\ komp \ share" + "* .exe", faAnyFile, SearchRec);
Asta e tot.

Procedura TMainForm.Scan (string Dir.);
var F: TSearchRec;
începe
# XA0; dacă FindFirst (Dir +, FaAnyFile, F "*".) = 0 atunci
# XA0; repetare
# XA0; dacă F.Attr și # XA0; faDirectory> 0 atunci
# XA0; începe
# XA0; # XA0; dacă (F.Name <> "") Și (F.Name <> ".."), atunci
# XA0; # XA0; începe
# XA0; # XA0; # XA0; # XA0; Scan (Dir + "" + F.Name);
# XA0; # XA0; end;
# XA0; capăt
# XA0; altfel
# XA0; dacă F.Name <> „“ Atunci
# XA0; # XA0; începe
# XA0; # XA0; RichEdit1.Lines.Add (Dir + "" + F.Name);
# XA0; # XA0; se încheie;
# XA0; până # XA0; FindNext (F) <> 0;
# XA0; FindClose (F);
se încheie;

Asta nu e un fel, el nu a vrut să scaneze acțiunile de rețea. Am încercat și procedura cu Delphi Mondială. De asemenea, nu pot găsi fișierele.

Poate ceva procedură greșită?

> anton_m # XA0; (13.12.05 15:33) [10]

Ei bine, tocmai ai scris: „Dar dacă este așa: \\ Komp \ Dir, atunci totul este în regulă.“

Ei bine, când mă întorc la procedura, atunci am scrie
Procedura TForm1.SpeedButton1Click (Expeditor: TObject);
începe
# XA0; RichEdit1.Clear;
# XA0; Scan ( "\\\ komp \ Dir");
se încheie;

Ei bine, când mă întorc la procedura, atunci am scrie
Procedura TForm1.SpeedButton1Click (Expeditor: TObject);
începe
# XA0; RichEdit1.Clear;
# XA0; Scan ( "\\ komp \ Dir");
se încheie;

> anton_m # XA0; (13.12.05 15:54) [12]
> Ei bine, aș întoarce la procedura, atunci am scrie

ce?

Am făcut un pas. Nifiga el găsește atunci când scrie "\\ 127.0.0.1 \ Dir" și, atunci când scrie "\\ komp \ Dir". Aici glitch :(

clickmaker, ai spus
> Ciudate - așa că am făcut.

Puteți verifica apoi toate căutare de lucru cu FindFirst \\ komp \ cale Dir la dosar? În cazul în care nu este dificil. Eu lucrez cu începutul căii „c :. \“, dar cu „\\.“ Nu funcționează!

> anton_m # XA0; (13.12.05 16:48) [16]
> Clickmaker, ai spus
>> Ciudate - așa că am făcut.

Nu eu vorbesc.
Cu toate acestea, și eu fac acest lucru.
Nu există nici un mijloc de ai primit fișierele necesare.
Apropo, uneori, util pentru a verifica dacă se spune ShowMessage (SysErrorMessage (GetLastError ())).

Memorie: 0,74 MB
Timpul: 0,042 c