Работа с файлами в сети

[Pokemon]

Всем добрый день. У меня возникла такая прблема: как работать с файлами в сети, т.е. мне необходимо просмотреть содержимое компьютера в сети на наличие определенных файлов, и если такие файлы имеются, то скопировать эти файлы на компьютер, на котором запущенна данная программа? Папка в котрой производится поиск является доступной. Например путь к компьютеру:
Вся сеть - HomeGroup - MyPC - MyFolder.
Спасибо заранее.

P.S. Если у вас есть готовые программы, которые могут послужить примерами скидывайте на мой почтовый ящик: pokemon@emails.ru

[Гром]

Поясни - я не очень понял, что ты имеешь ввиду, по локалке, или по сети типа интернет???

[PSD]

Если по локалке и локалка от MS то пиши

\\[Имя машины]\[диск без двоеточия]\[локальный путь]
или
\\[IP]\[диск без двоеточия]\[локальный путь]

Пример

\\TISTO\dbtisto\doc\faq.doc

[Pokemon]

Это понятно что нужно указывать путь локалного файла таким образом... Меня интересуют функции или процедуры которые выполнябт данные действия. Т.е. функции FindFirst или FindNext, CopyFile или функции того же типа, будут ли они работать с таким форматом? Например если в параметре функции FindFirst я задам путь и шаблон таким образом:
\\Вся сеть\MyPC\MyFolder\*.rar
... то примет ли функция данный путь и маску и вообще будит ли она корректно работать с фалами находящимися в локальной сети

[Aleck D.Shadow]

Самый верный путь узнать - попробовать!

[Aleck D.Shadow]

А вообще должно работать.

[PSD]

Да будет, эти функции работает с дисками а обращение по такому пути не чем не отличается от обащения к локальному файлу покрайней мере на уровне этих функций.

Правда не уверен что пройдет \\Вся сеть\

[Гром]

ИМХО - примет, хотя в Дельфи не пробовал, реализация может быть другой не как в С++ в С++ брпал весь путь - только там нету \\Вся сеть\\....

[aidar]

Form1.Status.Panels[0].Text:='Ждите !!! Идет чтение.';
   Application.ProcessMessages;
   Form1.Status.Panels[0].Text:='';
   if copyfile('\\BORIS\REP741\baza_c.dbf','C:\Program Files\Logika\Rep741\baza_c.dbf',false)<>false then
   Form1.Status.Panels[0].Text:='OK1 ';
   if copyfile('\\BORIS\REP741\baza_ch.dbf','C:\Program Files\Logika\Rep741\baza_ch.dbf',false)<>false then
   Form1.Status.Panels[0].Text:=Form1.Status.Panels[0].Text+'OK2 ';
   if copyfile('\\BORIS\REP741\baza_ch.ndx','C:\Program Files\Logika\Rep741\baza_ch.ndx',false)<>false then
   Form1.Status.Panels[0].Text:=Form1.Status.Panels[0].Text+'OK3 ';
   if copyfile('\\BORIS\REP741\baza_c.ndx','C:\Program Files\Logika\Rep741\baza_c.ndx',false)<>false then
   Form1.Status.Panels[0].Text:=Form1.Status.Panels[0].Text+'OK4 ';
   if Form1.Status.Panels[0].Text='OK1 OK2 OK3 OK4 ' then
   Form1.Status.Panels[0].Text:='Данные приняты успешно !!!' else