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

[smartyyp]

在局域网中，如何将一台机器上一个目录中的内容copy到本地的一个目录中?
要求有代码，事例，绝对把分给达到点子上的人，绝不散分！

[Montaque]

首先琼剧目录中的文件和目录，然后System.io.file.copy()

[dHMff]

琼剧怎么举???

[dHMff]

穷举怎么举???不好意思,错了.

[smartyyp]

up

[吉安]

将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]

有详细的例子吗？
简单的方法我都知道，我要的是详细的解决方案!

[Angelnet]

gz

[Montaque]

http://msdn.microsoft.com/library/en-us/dnvssamp/html/vbcs_CreateanExplorerStyleApplication.asp

[smartyyp]

thank