VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "DFCcDirList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Private mCol As New Collection

Public Function Add(lAttrib As Long, dtCreationTime As Date, dtLastAccessTime As Date, dtLastWriteTime As Date, lFileSize As Long, sFileName As String) As DFCcDirItem
'    On Error GoTo Err_Proc
   Dim newItem As New DFCcDirItem
   
   With newItem
      .Archive = (lAttrib And FILE_ATTRIBUTE_ARCHIVE)
      .Compressed = (lAttrib And FILE_ATTRIBUTE_COMPRESSED)
      .Directory = (lAttrib And FILE_ATTRIBUTE_DIRECTORY)
      .Hidden = (lAttrib And FILE_ATTRIBUTE_HIDDEN)
      .Normal = (lAttrib And FILE_ATTRIBUTE_NORMAL)
      .Offline = (lAttrib And FILE_ATTRIBUTE_OFFLINE)
      .ReadOnly = (lAttrib And FILE_ATTRIBUTE_READONLY)
      .System = (lAttrib And FILE_ATTRIBUTE_SYSTEM)
      .Temporary = (lAttrib And FILE_ATTRIBUTE_TEMPORARY)
      .CreationTime = dtCreationTime
      .LastAccessTime = dtLastAccessTime
      .LastWriteTime = dtLastWriteTime
      .FileSize = lFileSize
      .FileName = sFileName
   End With
   mCol.Add newItem, sFileName
Exit_Proc:
Exit Function


Err_Proc:
    Err_Handler "cDirList", "Add", Err.Number, Err.Description, Err_Handle_Mode
Resume Exit_Proc

End Function

Public Function Clear()
'    On Error GoTo Err_Proc
   Dim lIndex As Long
   If mCol.Count > 0 Then
      For lIndex = 1 To mCol.Count - 1
         mCol.Remove lIndex
      Next
   End If
Exit_Proc:
Exit Function


Err_Proc:
    Err_Handler "cDirList", "Clear", Err.Number, Err.Description, Err_Handle_Mode
Resume Exit_Proc

End Function

Public Function Item(Index As Variant) As DFCcDirItem
'    On Error GoTo Err_Proc
   Set Item = mCol(Index)
Exit_Proc:
Exit Function


Err_Proc:
    Err_Handler "cDirList", "Item", Err.Number, Err.Description, Err_Handle_Mode
Resume Exit_Proc

End Function

Public Function Count() As Long
'    On Error GoTo Err_Proc
   Count = mCol.Count
Exit_Proc:
Exit Function


Err_Proc:
    Err_Handler "cDirList", "Count", Err.Number, Err.Description, Err_Handle_Mode
Resume Exit_Proc

End Function

Public Function NewEnum() As IUnknown
Attribute NewEnum.VB_UserMemId = -4
Attribute NewEnum.VB_MemberFlags = "40"
'    On Error GoTo Err_Proc
   Set NewEnum = mCol.[_NewEnum]
Exit_Proc:
Exit Function


Err_Proc:
    Err_Handler "cDirList", "NewEnum", Err.Number, Err.Description, Err_Handle_Mode
Resume Exit_Proc

End Function