1.5w+
社区成员
- 主页
- VBS
- .NET技术
- VBA
- VB网络编程
- VB多媒体
- VB数据库
- VB控件
- VB COM/DCOM
- VB基础类
- VB API
- 问答
在局域网中，如何将一台机器上一个目录中的内容copy到本地的一个目录中?
在局域网中，如何将一台机器上一个目录中的内容copy到本地的一个目录中?
要求有代码，事例，绝对把分给达到点子上的人，绝不散分！
要求有代码，事例，绝对把分给达到点子上的人，绝不散分！
...全文
请发表友善的回复…
发表回复
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
网络上只需要将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()