Количество книг в папке

[Palomnik1096]

начало понятно, а вот в строке

Do While MyName <> ""
Name MyPath & MyName As MyPath & "CostOders" & i
i = i + 1: MyName = Dir
Loop

понятно только Do While MyName <> "" и Loop, не могли бы объяснить строки

Name MyPath & MyName As MyPath & "CostOders" & i
i = i + 1: MyName = Dir

[kuklp]

Возьму на себя смелость объяснить строку Сергея.

Name MyPath & MyName As MyPath & "CostOders" & i

Именно эта строка и переименовывает(задает новое имя) файл из MyPath & MyName в MyPath & "CostOders" & i. По совету Игоря рекомендую - По-поводу Name почитайте справку, пожалуйста.:-)

[Palomnik1096]

а теперь понятно, спасибо за комменты, листинг сохраню для примера, а файлы открываются для того, чтобы потом оттуда брать информацию, а потом сохранять их под другим именем.

[kuklp]

Хм.., поэтому и написал: "Пути ТС неисповедимы":-)