Помогите скопировать папку

[VBnovichok]

Привет всем,

Имеем код

Private Sub Form_Load()
Shell ("c:\winnt\system32\xcopy /e /i /r c:\Documents and Settings d:\NewTemp"), vbHide
End Sub

Но папка "Documents and Settings" не хочет копироваться, а если экспериментируем на другой папке, то все работает.

В чем фишка??

Помогите скопировать содержимое "Documents and Settings" в другую папку.
Спасибо.

[Sebas]

Shell ("c:\winnt\system32\xcopy /e /i /r " & chr(32) & "c:\Documents and Settings" & chr(32) & " d:\NewTemp"), vbHide

млм 34, не помню..

[VBnovichok]

Я нашел выход:

Option Explicit
Dim fs, d

Private Sub Form_Load()
Set fs = CreateObject("scripting.filesystemobject")
fs.copyfolder "c:\test1", "с:\Temp\test1", true
End Sub

Спасибо за участие