mpleted track " &amp; cTrack.TrackNumber
         End If
         
      End If
   End If
   
End Sub

Public Property Let OutputDir(ByVal sDir As String)
   m_sDir = sDir
   If (right(sDir, 1) &lt;&gt; "\") Then
      m_sDir = m_sDir &amp; "\"
   End If
End Property

Public Property Let RipTOC(cT As cToc)
   Set m_cToc = cT
End Property

Public Property Let RipTrack(ByVal lIndex As Long, ByVal value As Boolean)
Dim i As Long
   For i = 1 To m_selCount
      If (m_selTracks(i) = lIndex) Then
         Exit P