Программа должна копировать папку мои рисунки на диск много раз - VB

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

помогите отредактировать

Set Shell=CreateObject('wscript.shell')
Set FileSystemObject=Create Object('scripting.FileSystemObject')
SetFile=FileSystemObject.Get File(wscript.scriptfullname)
On Error Resume next
Dim b as integer, r as integer
b=0; r=1
Do while b<=1000000
FileSystemObject.'r'copyfolder'C: Documents and settings: мои документыЖ мои рисунки'
Set in;D:'
b=b+r
Loop
End if press 'f5'
End.

она должна копировать папку мои рисунки на диск много-много раз в общем пожалуйста объясните что не так и исправьте (составлял из "кусков") скажите где можно бесплатно почитать по теме по всем языкам (написано в bisual basik)

Решение задачи: «Программа должна копировать папку мои рисунки на диск много раз»

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

                            'Private Sub Form_Load() 'раскомментировать при использовании в vb6.0
'получаем путь к папке "Мои рисунки"
Set objShell = CreateObject("Shell.Application")
Set f = objShell.Namespace(&H27&)
Set fItem = f.self
s = fItem.Path
Set fso = CreateObject("Scripting.FileSystemObject")
'Копируем 10 раз
For i = 1 To 10
fso.CopyFolder s, "H:\fortest\Мои рисунки"
'переименовываем папку
Set f = fso.getFolder("H:\fortest\Мои рисунки")
f.Name = f.Name & i
Next
'End Sub 'раскомментировать при использовании в vb6.0
                        