VB Скрипт копирования файлов

[zmey1]

Всем привет.

У меня есть программа на VB, которая копирует определенные файлы из одной папки в другую. Но мне нужно написать к ней проверку, типо если файл не скопирован то выдать ошибку и сделать попытку копирования раз 5...
Как мне это сделать?

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemO bject")


objFSO.CopyFile "C:\d\1.txt" , "C:\d2\", OverwriteExisting
objFSO.CopyFile "C:\d\2.txt" , "C:\d2\", OverwriteExisting
objFSO.CopyFile "C:\d\3.txt" , "C:\d2\", OverwriteExisting

Я попытался добавить в прогу:

Set fso = CreateObject("Scripting.FileSystemO bject")
Set file = fso.GetFile("C:\d2\1.txt")
if file.size=tempSize then

file.delete
msgbox("Файл поврежден")
else
msgbox("Файл скопирован удачно")
end if

Но чет эта проверка не прально работает)
Я не шарю в VB, помогите плиз.