Расчёт количества файлов в папке без учёта скрытых файлов

[dfc]

Здравствуйте,
прошу помочь решить проблему.
В папке С:\Orders\ сохраняются заявки в формате .xlsx
Стоит задача посчитать при помощи макроса количество заявок находящихся в указанной папке без учёта скрытых файлов (резервных копий открытых книг) и вывести результат в ячейку рабочей книги.
Сейчас использую макрос:

Sub Orders()
    FolderPath = "C:\Orders\"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Ord# = FSO.GetFolder(FolderPath).Files.Count
    Range("A1").Select
    ActiveCell.FormulaR1C1 = Ord#
End Sub

Но если какие-то книги из указанной папки остались открытыми во время расчёта, следствием чего является наличие в папке скрытых временных резервных копии этих фалов, то они тоже учитываются при подсчёте количества файлов, а это ненужно.

[IgorGO]

а так?

Sub Orders()
  Dim c As Long
  [a1] = 0
  If Dir("C:\Orders\*.xlsx") = "" Then Exit Sub Else c = 1
  Do
    If Dir = "" Then Exit Do Else c = c + 1
  Loop Until False
  [a1] = c
End Sub

[dfc]

Большое спасибо! Работает. В ходе поиска решения получил ещё один работающий вариант. Привожу для информации:

Sub Get_All_File_from_Folder()  
    Dim sFolder As String, sFiles As String  
    With Application.FileDialog(msoFileDialogFolderPicker)  
        If .Show = False Then Exit Sub  
        sFolder = .SelectedItems(1)  
    End With  
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)  
    Application.ScreenUpdating = False  
    sFiles = Dir(sFolder & "*.xls*")  
    Do While sFiles <> ""  
        If GetAttr(sFolder & sFiles) <> vbHidden Then li = li + 1  
        sFiles = Dir  
    Loop  
    ActiveCell.Value = li  
    Application.ScreenUpdating = True  
End Sub

От The_Prist

http://www.excel-vba.ru/forum/index....12697#msg12697