نکات، ایده ها و ترفندهای کوچک برنامه نویسی در vb.net

[ghafoori]

https://barnamenevis.org/showpo...9&postcount=88

Imports System.IO





Sub CopyDirectory(ByVal source As DirectoryInfo, ByVal destination As DirectoryInfo)



        If Not destination.Exists Then

            destination.Create()

        End If

        '// Copy all files.

        Dim files() As FileInfo = source.GetFiles()

        For Each file As FileInfo In files

            file.CopyTo(Path.Combine(destination.FullName, file.Name))

        Next

        '// Process subdirectories.

        Dim dirs() As DirectoryInfo = source.GetDirectories()

        For Each dir As DirectoryInfo In dirs



            '    // Get destination directory.

            Dim destinationDir As String = Path.Combine(destination.FullName, dir.Name)

            '// Call CopyDirectory() recursively.

            CopyDirectory(dir, New DirectoryInfo(destinationDir))

        Next



    End Sub