ник: час
А для смены расширения заведи переменную
Dim Hirinka as long например
Dim Hirinka_STR as string
и пока цикл продолжается
Hirinka = Hirinka +1
а потом преобразуй её
Hirinka_STR = Format(Yaer(Hirinka ), "0000")
и вместо "doc" всавь в скрипт Hirinka_STR
If StrComp(objFS.GetExtensionName(objItem.Name), Hirinka_STR , vbTextCompare) = 0 Then