Member or Data not found

When I create new archive for my program, after specifying the archive's name and location, an error of member or data not found appears and VB indicate the following line of code:

Item.SubItems(3) = rightjust(comp.Ratio((i)), "##0.00%")

Note the rightjust coding is as follows:

Function rightjust(var As Variant, just As Variant) As String
   
    Dim frmt As Integer
   
    frmt = Len(just)
    rightjust = right(Space(frmt) & Format(var, just), frmt)
End Function

Can this problem be avoided or solved because creating new archive does not have anything inside after I place a file to compress.

I hope to receive reply ASAP. Thanks

Viewer

P/S: here's related class module coding

Private Type LempFile
    Key As String           'Path\File.ext
    fname As String         'Filename including extension only
    Ext As String          
    Path As String          
    RelPath As String      
    compressed As Boolean  
    fsize As Long          
    CompSize As Long      
    Ratio As Single        
    changed As Date
    icokey As String
    Offset As Long          
    ChkSum As Byte          
    chksumcomp As Byte      
    choosen As Boolean
End Type
program_viewerAsked:
Who is Participating?
 
PNJCommented:
I think it may be the "Item" variable. "Item" is a property of several VB entities. Try changing your declaration of "Item" to (say) "MyItem" and see how that goes.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.