Vb. NET copies the instance code of all subdirectories and files under the entire directory

This article describes the copy of the entire directory of subdirectories and files of the code, the need for friends can refer to the copy code code as follows:

 public Sub copyderictory (ByVal directorysrc as DirectoryInfo, ByVal directorydes as DirectoryInfo)
&nbs p;       Dim Strdirectorydespath as String = Directorydes.fullname & "" & Directorysrc.name
        If not directory.exists (Strdirectorydespath) Then
            Directory.CreateDirectory ( Strdirectorydespath)
        end If
         Dim F, FS () as FileInfo
        fs = Directorysrc.getfiles ()
& nbsp;       for each F in FS
             file.copy (F.fullname, Strdirectorydespath & "" & F.name, True)
         Next
        Dim dirsrc, dirs () as DirecToryinfo
        dirs = directorysrc.getdirectories ()
       //recursively calls itself
        for each dirsrc in dirs
  & nbsp;         Dim Dirdes as New directoryinfo (Strdirectorydespath)
            copyderictory (DIRSRC, dirdes)
         Next
    end Sub
    Private Sub button1_click ( ByVal sender as System.Object, ByVal e as System.EventArgs) Handles Button1.Click
     & nbsp;  copyderictory (New DirectoryInfo ("C:documents and Settingsusernamefavorites"), New DirectoryInfo ("G:emp") )
    End Sub