Error 457 Por que sucede - como lo resuelvo?

[franko1809]

El error que aparece es este: "Esta clave ya está asociada a un elemento de esta colección", me explico estoy usando un programa ftp con la api wininet de recursosvisualbasic.

El error aparece cuando ingreso al server ftp desde 2 pc's es decir en la pc1 habre correctamente y cierro, luego en la pc2 ya no habre aparece el error, vuelvo a la pc1 y ya no habre??

Parece q esto tambien pasa cuando bd en red en las aplicaciones cliente servidor como puedo solucionar esto ya q en google no encontre mucho y me rendi?

[David]

¿Puedes poner la línea donde te da el error?.

[franko1809]

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

[David]

Nótese que mCol es una colección y el segundo parámetro del método Add de una colección es una clave única para el elemento agregado, por lo que si estás invocando dos veces al método Add de la clase con el mismo parámetro para sFileName se producirá un error.

[franko1809]

Bueno seguire revisando el codigo aunque no lo entiendo mucho o si tienes alguna idea como resolverso?

saludos

[David]

Una idea sería agregar un número único a la clave, así aunque el sFileName sea el mismo la clave seguirá siendo única.