如何复制整个目录下的所有文件（包括子目录）

[Redsun248]

如何复制整个目录下的所有文件（包括子目录）

[hzybc]

My.Computer.FileSystem.CopyDirectory("源","目标")

[bw555]

用shell调用dos命令

[essenza]

子目录可以按照类式的方法加进去

Private Sub CopyDirectory(ByVal sourceDirName As String, ByVal destDirName As String)

        If Not (Microsoft.VisualBasic.Right(destDirName, 1) = Path.DirectorySeparatorChar) Then
            ''取目标数程序，最后一个字符是否是“/”，不是则加上 
            destDirName = destDirName + Path.DirectorySeparatorChar
        End If
        Try
            Dim files As String() = Directory.GetFiles(sourceDirName)

            For Each strfile As String In files
                My.Computer.FileSystem.CopyFile(strfile, destDirName + Path.GetFileName(strfile), True)
                 
            Next


        Catch ex As Exception

        End Try
    End Sub

[cuike519]

递归遍历目录并且copy文件

[nijianchun]

UP,没积分，穷啊，下载代码学习，大家莫怪
做个记号