Копировать папку в директорию - VB

Формулировка задачи:

Всем привет, подскажите код для копирования папки и ее содержимого в директорию "C:\" Код на форуме видел, только он не заработал((

Решение задачи: «Копировать папку в директорию»

textual
                            Листинг программы 
                        

                            Private Sub cmdCopyFolder_Click()
' Выполняет копирование папок вместе с их содержимым, в том числе и
' с применением шаблонов.
' Копируем все папки.
Dim fso As FileSystemObject
sFolder = "C:\FsoTest"
Set fso = New Scripting.FileSystemObject
On Error Resume Next
If fso.FolderExists("C:\Documents and Settings") Then
  If Not fso.FolderExists(sFolder) Then
    fso.CreateFolder sFolder
  End If
    fso.CopyFolder "C:\Documents and Settings\*", sFolder
    MsgBox "В папку " & sFolder & " скопированы все папки из папки "
Else
    MsgBox "Исходная папка  не существует"
End If
End Sub
 
Private Sub Command1_Click()
cmdCopyFolder_Click
End Sub
                        