ms.Clear
   
   ' Get the file directory:
   m_cUnzip.ZipFile = sFIle
   m_cUnzip.Directory
   
   If m_cUnzip.FileCount &gt; 0 Then
      m_cZipMRU.Add sFIle
      pShowOpenMRU
   End If
   
   pEnableControls
   
   ' Display it in the ListView:
   For i = 1 To m_cUnzip.FileCount
      sIcon = AddIconToImageList(m_cUnzip.Filename(i), ilsIcons16, "DEFAULT")
      sFIle = m_cUnzip.Filename(i)
      If m_cUnzip.FileEncrypted(i) Then
         ' the way WinZip represents it.  I guess a nicer way would be
     