String
Dim sAlbum As String
Dim sTitle As String

   m_sFileName = ""

   sAlbumArtist = Trim(StripBadChars(m_sAlbumArtist))
   If Len(sAlbumArtist) &gt; 0 Then
      m_sFileName = sAlbumArtist
   End If
   
   sAlbum = Trim(StripBadChars(m_sAlbum))
   If (Len(sAlbum) &gt; 0) Then
      If Len(m_sFileName) &gt; 0 Then
         m_sFileName = m_sFileName &amp; "\"
      End If
      m_sFileName = m_sFileName &amp; sAlbum
   End If
   
   sTitle = Trim(StripBadChars(m_sTitle))
   If Len(sTitle) = 0 Then
      