nusable")
   End If
   If (eFlags And MEDIA_RW) = MEDIA_RW Then
      sRet = AddToString(sRet, "R/W")
   End If
   If (eFlags And MEDIA_WRITABLE) = MEDIA_WRITABLE Then
      sRet = AddToString(sRet, "Writable")
   End If
   MediaFlagNames = sRet
End Function

Private Function AddToString(ByVal sAddTo As String, ByVal sAdd As String) As
 String
   If (Len(sAddTo) &gt; 0) Then
      sAddTo = sAddTo &amp; ", "
   End If
   AddToString = sAddTo &amp; sAdd
End Function
</pre><p>&#160;</p><p>&#160;</p><p>&#160;</