DanielSimons
7/13/2017 - 8:42 AM

Copies folders and subfolders.

Copies folders and subfolders.

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