Office中国论坛/Access中国论坛

标题: （解决了）怎样把他人电脑上的一个文件夹从网上邻居共享中拷贝到我电脑上？ [打印本页]

作者: xqsuih 时间: 2011-3-17 12:57
标题: （解决了）怎样把他人电脑上的一个文件夹从网上邻居共享中拷贝到我电脑上？
本帖最后由 xqsuih 于 2011-3-21 20:33 编辑

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

作者: hjb016 时间: 2011-3-17 14:49
'************************************************
'** 函数名称: 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 时间: 2011-3-21 20:30

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

谢谢了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)