How to show Files shared (NetWork)

[ADN]

Hi, All

How to show Files shared (ExamineDirectory) ?

This code no work

Thank for Help !



Procedure dir(repertoire$)

ExamineDirectory(0,repertoire$,"")

Repeat
Delay(1)

dirid=NextDirectoryEntry()

Select dirid
Case 1 ; fichier
file.s=DirectoryEntryName()
Debug file.s
Case 2
If DirectoryEntryName()<>"." And DirectoryEntryName()<>".."
file.s=DirectoryEntryName()
Debug "[DIR] "+file.s

EndIf



EndSelect


Until dirid=0



EndProcedure



;dir("c:\") ; local <-OK

;dir("\\PIII\Backup"); works ok

dir("\\PIII\"); no Works