（解决了）怎样把他人电脑上的一个文件夹从网上邻居共享中拷贝到我电脑上？

xqsuih

我们局域网可以共享文件，我用copy方法从自己机上复制文件夹可以，但无法从别的电脑上复制过来，电脑共享设置正常。查了一下，好像说copy不能通过网路来拷贝的，好像xcopy可以，但我试了好久，使用xcopy总是出错，我是用shell来调用。所以请教大虾：1，xcopy方法的语法怎么写？2，还有其他方法可以达到目的的吗？

hjb016

'************************************************
'** 函数名称: uCopyFile
'** 函数功能: 复制文件
'** 参数说明:
'**         strFrom         源文件
'**         strTo           目标文件
'**         prgState         进度条控件
'**         lblState         用来显示进度的 Label
'** 函数返回:
'**         Boolean 类型
'**         True           复制成功
'**         False           复制失败
'** 参考实例:
'**
'**         blnReturn = uCopyFile("c:\test.exe", "d:\test.exe", prgState, lblState)
'************************************************
Public Function uCopyFile(ByVal strFrom As String, _
                ByVal strTo As String, _
                ByRef prgState As Object, _
                ByRef lblState As Object) As Boolean
  Dim lngReturn  As Long
  
  Set mprgState = prgState
  Set mlblState = lblState
  '// 开始复制
  lngReturn = CopyFileEx(strFrom, strTo, _
                AddressOf CopyProgressRoutine, ByVal 0&, mlngCancel, COPY_FILE_RESTARTABLE)

  If lngReturn = 0 Then
    uCopyFile = False
  Else
    uCopyFile = True
  End If
End Function

xqsuih

hjb016 发表于 2011-3-17 14:49
'************************************************
'** 函数名称: uCopyFile
'** 函数功能: 复制文件

谢谢了。