• Home
 · 
• Files/File Controls/Input/Output
 · 
• Copy a dir to another directory including the sub directories.

Copy a dir to another directory including the sub directories.

Copy a dir to another directory including the sub directories.

Rate Copy a dir to another directory including the sub directories.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    ReDim FileName(1) As String
    
    'check the directory string
    If Right(FromPath, 1) <> "\" Then FromPath = FromPath & "\"
    If Right(ToPath, 1) <> "\" Then ToPath = ToPath & "\"
    
    'real direcotry
    If (Dir(FromPath, vbDirectory) <> "") And (Dir(ToPath, vbDirectory) <> "") Then
        Dim i As Integer
        i = 0
        FileName(i) = Dir(FromPath, vbDirectory)
        While FileName(i) <> ""
            If (GetAttr(FromPath & FileName(i)) And vbDirectory) = vbDirectory Then
                If FileName(i) <> "." And FileName(i) <> ".." Then
                    i = i + 1
                    ReDim Preserve FileName(i + 1) As String
                End If
            Else
                FileCopy FromPath & FileName(i), ToPath & FileName(i)
            End If
            'increase the array size
            FileName(i) = Dir
        Wend
        
        'copy the sub directory
        If i > 0 Then
            For Each directory In FileName
                If directory <> "" Then
                    'prepare directory
                    MkDir ToPath & directory
                    
                    'copy direcotry
                    dirCopy FromPath & directory, ToPath & directory
                End If
            Next
        End If
    End If
End Sub