El error aparece en el modulo cDirList.cls
En esta linea comentada
, espero sepas darme alguna solucion io algun punto para investigar
Código:
Public Function Add(lAttrib As Long, dtCreationTime As Date, dtLastAccessTime As Date, dtLastWriteTime As Date, lFileSize As Long, sFilename As String) As cDirItem
Dim newItem As New cDirItem
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 ' AQUI ME TIRA EL ERROR??
End Function