{quote}{login=AAAAAAAmidi}{date=03.09.2010 10:51}{thema=Количество файлов в каталоге}{post}Добрый день. Сразу, как принято, прошу прощения за, возможно, избитую тему. Вариаций много есть, но вот простого не нашел.  
 
Пишется программа, которая копирует из множества файлов данные в один.    
Чтобы не привязываться к конкретному количеству возможных файлов-источников, нужно определить количество файлов, лежащее в заданном текущем каталоге (ww = ActiveWorkbook.Path ' получаем путь, где лежит текущая книга и все остальные)  
Вопрос: каким кодом подсчитать в переменную zz количество файлов, лежащих в каталоге (переменная ww)  
 
Спасибо.{/post}{/quote}  
 
 
 
чего их считать?  обрабатывайте пока не кончатся..

{quote}{login=Казанский}{date=03.09.2010 11:02}{thema=AAAAAAAmidi}{post}Оказывается, в справке 2007 примера нет :( <BR>Смотрите тут: http://www.planetaexcel.ru/forum.php?thread_id=16943 Пост Hugo от 14:05 и ниже.{/post}{/quote}  
 
Уже залез. Пример подправил под себя.  
=====================================  
   ww = ActiveWorkbook.Path '  
   ww1 = ww & "\"  
MyPath = ww1  
myname = Dir(MyPath, vbDirectory)    ' Retrieve the first entry.  
Do While myname <> ""    ' Start the loop.  
   ' Ignore the current directory and the encompassing directory.  
   If myname <> "." And myname <> ".." Then  
       ' Use bitwise comparison to make sure MyName is a directory.  
       If (GetAttr(MyPath & myname) And vbDirectory) = vbDirectory Then  
           Debug.Print myname    ' Display entry only if it  
       End If    ' it represents a directory.  
   End If  
     
   myname = Dir    ' Get next entry.  
   zz = zz + 1  
Loop  
MsgBox zz  
=======================================  
Считает, но с одним ньюансом. Выдает количество файлов на 2 больше, чем есть в папке. Скрытых файлов вроде нет. Ищу причину.  
Ссылочку сейчас посмотрю. спасибо.

Чтоб не выдавало на 2 больше - перенесите zz сюда:  
If myname <> "." And myname <> ".." Then  
zz = zz + 1

{quote}{login=Hugo}{date=03.09.2010 11:19}{thema=}{post}Чтоб не выдавало на 2 больше - перенесите zz сюда:  
If myname <> "." And myname <> ".." Then  
zz = zz + 1{/post}{/quote}  
 
Да, не разобрался с логикой.  
Все работает на ура. Спасибо.

Ещё можно на FSO сделать, с проверкой расширения и даты  
 
'Удаление файлов XLS если они старше 30 дней  
Dim FSO    
Dim TheFolder, TheFiles, AFile    
Set FSO = CreateObject("Scripting.FileSystemObject")    
Set TheFolder = FSO.GetFolder("C:\Temp\") 'Каталог, откуда удалять    
Set TheFiles = TheFolder.Files    
For Each AFile In TheFiles    
   If UCase(FSO.GetExtensionName(AFile.Path)) = "XLS" and _    
       DateDiff("d", AFile.DateLastModified, Date) > 30  Then    
       'AFile.Delete    
msgbox afile  
   End If    
Next