Я делаю список папок, где каждая папка нуждается только в нескольких свойствах, поэтому ям, используя класс ниже. Тем не менее, независимо от папки,FilesInFolder Свойство всегда на 5 больше, чем фактическое количество файлов в папке.

Может кто-нибудь, пожалуйста, помогите мне узнать, что не так? Благодарю.

Public Class Single_Action_Folder

    Public ReadOnly FullName As String = ""
    Public ReadOnly Name As String = ""
    Public ReadOnly FilesInFolder As Integer = 0
    Public ReadOnly Exists As Boolean = False

    '**
    ' Constructor
    '*
    Public Sub New(Optional dir As DirectoryInfo = Nothing)

        ' First check that a directory has been specified
        If dir Is Nothing Then Exit Sub

        ' Populate the class properties
        FullName = dir.FullName
        Name = dir.Name
        FilesInFolder = dir.GetFiles().Count
        Exists = dir.Exists

    End Sub

End Class