フォルダとフォルダ内の全てのファイル、フォルダをコピーする方法を記載します。

My.Computer.FileSystem.CopyDirectory メソッドを使用する方法

Dim sPath As String = "C:\work"

'フォルダをコピーする
My.Computer.FileSystem.CopyDirectory(sPath, "C:\BK")
Dim sPath As String = "C:\work"

'フォルダをコピーする(既存のファイルを上書する)
My.Computer.FileSystem.CopyDirectory(sPath, "C:\BK", True)
Dim sPath As String = "C:\work"

'フォルダをコピーする(確認ダイアログを表示する)
My.Computer.FileSystem.CopyDirectory(sPath, "C:\BK", _
    FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)