Is there a way to make a smart playlist to display albums with NO cover art

Question

I want to see which of my songs do not yet have album art, in an easy manner ... Thanks!!

Answer 1

You can download and run this VBScript (or copy and paste from below). It will create a playlist called "No Artwork" containing all the tracks with no artwork.
The forum TOS requires me to say: "I may receive some form of compensation, financial or otherwise, from my recommendation or link" because I have a paypal donation link on my webpage, but the program is free (donation totally optional)
' # itunesno_artworkplaylist.vbs
' # This script will find all the tracks in the selected playlist that do not
' # have artwork and put them in a playlist called "No Artwork"
' # Copyright (C) 2007 Robert Jacobson
' # written by: Robert Jacobson (http://home.comcast.net/~teridon73/itunesscripts)
' # Last Updated: 04 Mar 2008
' # Version 1.0
' # This script is GPL v2. see http://www.gnu.org/copyleft/gpl.html
Option Explicit
Dim iTunesApp ' iTunes.Application object used to access the iTunes application.
Dim tracks ' The tracks collection object of the Library object.
Dim FileList ' The list of files that have been copied.
Dim i ' A counter variable.
Dim Msg ' A string for a message.
Dim f ' A file object.
Dim sources
Dim source
Dim m
Dim artwork
Dim num
Dim track
Dim numtracks
DIM use_windows
Dim tmp_playlist ' Temporary playlist to select
Dim rand
'detect CSCRIPT context & use InputLine
IF Instr(lcase(wscript.FullName), "cscript")>0 THEN
use_windows = 0
ELSE 'detect WSCRIPT context & use native InputBox
use_windows = 1
END IF
Set iTunesApp = CreateObject("iTunes.Application.1")
Set tracks = iTunesApp.LibraryPlaylist.Tracks
numtracks = tracks.Count
If use_windows = 0 Then
Wscript.Echo chr(9) & "tracks: " & numtracks
Else
Wscript.Echo "Processing... will prompt when complete" & Chr(10) & " (Click OK to continue)"
End If
' Create a playlist
Set tmp_playlist = iTunesApp.CreatePlaylist("No Artwork")
For m = numtracks to 1 step -1
Set track = tracks.Item(m)
If track.Kind = 1 Then
Set artwork = track.Artwork
if artwork.Count = 0 Then
tmp_playlist.AddTrack(track)
end if
End If
Next
Wscript.Echo "Done"