导航
  • 主页
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

在局域网中,如何将一台机器上一个目录中的内容copy到本地的一个目录中?

smartyyp 2003-04-04 02:37:00
在局域网中,如何将一台机器上一个目录中的内容copy到本地的一个目录中?
要求有代码,事例,绝对把分给达到点子上的人,绝不散分!
...全文
9 点赞 收藏 9
写回复
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
smartyyp 2003-04-08
thank
回复
Montaque 2003-04-07
http://msdn.microsoft.com/library/en-us/dnvssamp/html/vbcs_CreateanExplorerStyleApplication.asp
回复
Angelnet 2003-04-07
gz
回复
smartyyp 2003-04-07
有详细的例子吗?
简单的方法我都知道,我要的是详细的解决方案!
回复
吉安 2003-04-07
将C:\TEST目录下的文件拷贝到C:\DEST.
网络上只需要将C:\TEST定义为你的路径,比如:\\MACHINE1\SHAREFORLDER
Public Sub GetDir()

Dim sPath As String = "C:\Test\" '路径
Dim sName As String
Dim txtDestPath As String = "C:\Dest\"
txtDestPath = Microsoft.VisualBasic.Left(txtDestPath, Microsoft.VisualBasic.InStrRev(txtDestPath, "\"))
Try
sName = Dir(sPath, vbDirectory) ' Retrieve the first entry.
Catch ex As Exception
MsgBox("错误,你所指定的路径" & sPath & "可能不存在,请修改", MsgBoxStyle.Critical)
Exit Sub
End Try
Dim i As Long = 0
Do While sName <> "" ' Start the loop.
' Use bitwise comparison to make sure sName is a directory.
If (GetAttr(sPath & sName) And vbDirectory) <> FileAttribute.Directory Then
i = i + 1
End If
sName = Dir() ' Get next entry.
Loop
sName = Dir(sPath, vbDirectory) ' Retrieve the first entry.
Do While sName <> "" ' Start the loop.
' Use bitwise comparison to make sure sName is a directory.
If (GetAttr(sPath & sName) And vbDirectory) <> FileAttribute.Directory Then
Try
Dim xobj As New System.IO.FileInfo(sPath & sName)
Dim xobjLocal As New System.IO.FileInfo(txtDestPath & sName)
If xobj.LastWriteTime <> xobjLocal.LastWriteTime Then
System.IO.File.SetAttributes(txtDestPath & sName, IO.FileAttributes.Normal)
System.IO.File.Copy(sPath & sName, txtDestPath & sName)
End If
Catch ex As Exception
Try
System.IO.File.SetAttributes(txtDestPath & sName, IO.FileAttributes.Normal)

'Call Kill(txtDestPath & sName)
System.IO.File.Delete(txtDestPath & sName)
System.IO.File.Copy(sPath & sName, txtDestPath & sName)
Catch
End Try
End Try
End If
sName = Dir() ' Get next entry.
Loop
Exit Sub
End Sub
回复
smartyyp 2003-04-07
up
回复
dHMff 2003-04-04
穷举怎么举???不好意思,错了.
回复
dHMff 2003-04-04
琼剧怎么举???
回复
Montaque 2003-04-04
首先琼剧目录中的文件和目录,然后System.io.file.copy()
回复
发动态
发帖子
VB
创建于2007-09-28

1.5w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
社区公告
暂无公告