findfirst函数不能遍历网络邻居中的共享文件夹，请问实现如何实现这样的功能？？

Question

比如局域网里面有一个共享文件加\\ZhangSan\Share1我想通过findfirst等函数得到其文件结构可是用这个函数返回值为５３不懂为什么，请问如何才能实现我想要的功能？？

Answer 1

WNetOpenEnum、WNetEnumResource、WNetCloseEnum
或者更简单的方法：
WNetAddConnection/2/3映射一个网络驱动器，然后可以正常使用FindFirst等等。

Answer 2

\\ZhangSan\Share1   
是否得到这样的结构？ 那你就这样的先用先FindFirst FindNext 把网络文件夹全找出来
然后用一个取\\后面的函数 最后加上\\不就结了？ 

Answer 3

索性把取\\后的函数给你写好了function GetName(FullName: string): string;
var
  Postion: Integer;
begin
  Result := '';
  if FullName = '' then Exit;
  Postion := Pos('\\',FullName);
  while (Postion > 0) do
  begin
    Delete(FullName,1,Postion);
    Postion := Pos('\\',FullName);
  end;
  Result := FullName;
end;