vbscript 复制文件夹和子文件夹。

Posted 2021-05-22

Imports System.IO

Module mCopy
    Public Sub CopyFilesRecursive(ByVal SourceDir As String, ByVal DestDir As String)
        Dim sDirINfo As DirectoryInfo
        Dim dDirInfo As IO.DirectoryInfo

        If Directory.Exists(DestDir) = False Then
            Directory.CreateDirectory(DestDir)
        End If


        dDirInfo = New System.IO.DirectoryInfo(DestDir)
        For Each sDir As String In System.IO.Directory.GetDirectories(SourceDir)

            sDirInfo = New System.IO.DirectoryInfo(sDir)
            dDirInfo = New System.IO.DirectoryInfo(DestDir & sDirInfo.Name)

            If dDirInfo.Exists = False Then dDirInfo.Create()

            CopyFilesRecursive(sDirINfo.FullName, dDirInfo.FullName)

        Next

    End Sub
End Module