Vb. NET copy instance code of all subdirectories and files under the entire directory _ Practical Tips

Copy Code code as follows:

Public Sub copyderictory (ByVal directorysrc as DirectoryInfo, ByVal directorydes as DirectoryInfo)
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 ()
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
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
Copyderictory (New DirectoryInfo ("C:documents and Settingsusernamefavorites"), New DirectoryInfo ("G:emp")
End Sub