有关局域网文件传输的问题！

Question

问题描述：
    如何在局域网中的任何一台电脑上，获得该局域网内其他电脑上的完全共享目录，并向其中的某台电脑上的完全共享目录拷贝文件（或者创建文件）！实现工具：
    Delphi5操作系统：
    Windows98第二版高分回报：为什么只能用100分？200分为什么不行？                                                 ------进步才是硬道理
                                        联系信箱：[email protected]

Answer 1

我用以下方法可以得到某一工作组内的所有主机或某一主机内的所有共享文件夹名
procedure TSearchFileThread.Execute;//线程
Var
  EnumHandle                : THandle;
  FileRS                     : TNetResource;
  Buf                       : Array[1..500] of TNetResource;
  BufSize                   : DWord;
  Entries                   : DWord;
  Result                    : Integer;
begin
  mydir := mydir + #0;//mydir为工作组名时可以得到组内所有主机名
                      //mydir为主机名时可以得到机内所有共享文件夹名
  FillChar(FileRS, SizeOf(FileRS) , 0);
  With FileRS do begin
    dwScope := 2;
    dwType := 3;
    dwDisplayType := 1;
    dwUsage := 2;
    lpRemoteName := @mydir[1];
  end;
  WNetOpenEnum( RESOURCE_GLOBALNET,
                RESOURCETYPE_ANY,
                0,
                @FileRS,
                EnumHandle );
  Repeat
    Entries := 1;
    BufSize := SizeOf(Buf);
   Result := WNetEnumResource( EnumHandle,Entries,@Buf,BufSize );
   If (Result = NO_ERROR) and (Entries = 1) then 
   begin
      s:= StrPas(Buf[1].lpRemoteName); //得到网上资源名，主机或文件夹
      Synchronize(AddFile); //Form1.ListBox1.Items.Add(s);
    end ; 
  Until (Entries <> 1) or (Result <> NO_ERROR);
  WNetCloseEnum( EnumHandle );
end;
如令mydir 为WorkGroup则可得到WorkGroup内所有计算机名
如令mydir 为\\201 则可得到主机//201内所有共享文件夹名

Answer 2

outer2000(天外流星)：大哥，我对线程不熟悉，不是很明白！
这样只得到局域网内的共享目录名，我如何拷贝文件？是一般的文件拷贝操作吗？
还是不明白！郁闷ing......