Как да намерите всички файлове, отговарящи на маска в мрежа споделени папки

Как да намерите всички файлове, отговарящи на маска в мрежата споделена папка?

Здравейте на всички!
Знам как да получите списък с всички папки акция дискове. Знам как да намирате файлове на локалния компютър, но папките на мрежата?
Може би някой знае как да намерите файлове, съвпадащи с "* .exe" в мрежата?

така нали?
FindResult: = FindFirst ( "\\ КОМП \ дял" + "* .exe", faAnyFile, SearchRec);
Само тук е проблемът: той не иска да го направи. Написах по начин, той гледа към lorkalnyh папки, но в мрежата не гледа.

А прог fastscan не търсене на файлове. И аз просто се нуждаят от нея. Как да получите списъка, аз мислех за себе си!

Смятате ли, или грешка в програмата или там просто не е такъв файл.

Е, като цяло разбрах. Проблемът е, че аз имам списък с папки, да споделяте устройства, както следва:
\\ 127.0.0.1 \ Dir
Но ако това е така: \\ КОМП \ Dir, тогава всичко е наред.
Благодарим Ви!

> FindResult: = FindFirst ( "\\ КОМП \ дял" + "* .exe", faAnyFile,
> # XA0; SearchRec);
> Само тук е проблемът: той не иска да го направи.

Странно - аз така правя.

Можете ли да хвърлите процедура и начина, по който се отнасят към нея

добавен
FindResult: = FindFirst ( "\\ КОМП \ дял" + "* .exe", faAnyFile, SearchRec);
Това е всичко.

процедура TMainForm.Scan (Dir низ.);
Var F: TSearchRec;
започвам
# XA0; ако FindFirst (Dir +, FaAnyFile, F "*.") = 0, тогава
# XA0; повторение
# XA0; ако F.Attr и # XA0; faDirectory> 0, тогава
# XA0; започвам
# XA0; # XA0; ако (F.Name <> ".") И (F.Name <> ".."), след това
# XA0; # XA0; започне
# XA0; # XA0; # XA0; # XA0; Scan (Dir + "" + F.Name);
# XA0; # XA0; край;
# XA0; край
# XA0; още
# XA0; ако F.Name <> "" Тогава
# XA0; # XA0; започвам
# XA0; # XA0; RichEdit1.Lines.Add (Dir + "" + F.Name);
# XA0; # XA0; приключи;
# XA0; докато # XA0; FindNext (F) <> 0;
# XA0; FindClose (F);
приключи;

Това не е начин, че не иска да сканира мрежата акции. Опитах се и процедура с Delphi World. Също така не може да намери файловете.

Може би нещо не е наред процедура?

> anton_m # XA0; (12/13/05 15:33) [10]

Ами просто пише: "Но ако това е така: \\ КОМП \ Dir, тогава всичко е наред."

Е, когато се обръщам към процедурата, а след това аз пиша
процедура TForm1.SpeedButton1Click (Sender: TObject);
започвам
# XA0; RichEdit1.Clear;
# XA0; Scan ( "\\\ КОМП \ Dir");
приключи;

Е, когато се обръщам към процедурата, а след това аз пиша
процедура TForm1.SpeedButton1Click (Sender: TObject);
започвам
# XA0; RichEdit1.Clear;
# XA0; Scan ( "\\ КОМП \ Dir");
приключи;

> anton_m # XA0; (12/13/05 15:54) [12]
> Е, аз ще се обърнат към процедурата, а след това аз пиша

какво от това?

Излязох. Nifiga той открива, когато пишете "\\ 127.0.0.1 \ Dir" и когато пишете "\\ КОМП \ Dir". Тук бъг :(

clickmaker, ти каза,
> Странно - аз така правя.

След това можете да проверите цялата работа търсене FindFirst с \\ КОМП \ Dir път към файла? Ако не е трудно. Аз работя с началото на пътя "в :. \", но с "\\." Не работи!

> anton_m # XA0; (12/13/05 16:48) [16]
> Clickmaker, ти каза,
>> Странно - аз така правя.

това не е моят говор.
Независимо от това, и аз го направят.
Има никакъв начин не трябва ли необходимите файлове.
Между другото, понякога е полезно да се провери дали се казва ShowMessage (SysErrorMessage (GetLastError ())).

Памет: 0.74 MB
Време: 0.042 гр