Был в офф 2003 такой код ..

_{Sub Summator()
FormKontr = 2
UserForm1.TextBox1 = TekuchKatal
UserForm1.TextBox8 = ActiveSheet.Name
With Application.FileSearch
.Filename = "*.xls"
.LookIn = TekuchKatal
.Execute
UserForm1.TextBox2 = CStr(Val(.FoundFiles.Count) - 1)
End With
UserForm1.TextBox1.Enabled = False
UserForm1.TextBox2.Enabled = False
UserForm1.Show 0
End Sub}

работал на ура ... после перехода на офф 2010 (32-разряда) работать отказывается
ругаетса на "With Application.FileSearch" - говорит что-то насчет того что объект отсутствует ...
подскажите пожалуйста как можно этот код запустить в 2010 офф, мож какой библиотеки не хватает ?
________________________
это жжжж ... не спроста ...

Задержался анака, ... ну да ладно ...
Спасибо откликнувшемося... токо Dir в моём случае не есть айс ...
решил вопрос через подключение FSO и работу с его свойствами и методами ...