Displaying File Location in iTunes

Question

I can't seem to find a way to display my file locations in iTunes - I don't see it as a column that can be displayed. I'd like to be able to view this column to help with possible duplicate removal. I understand how to remove and even view the duplicates, but the missing piece is the actual location of the files, and I don't want to have to individually click on them to get that information or individually pull up the properties of each song. I'd greaty appreciate the help!

Answer 1

The following script (Download here, or copy and paste into a file with extension ".vbs") will set the Description of all the tracks in the playlist(s) you select to the file's path. Obviously if you want to see it you have to turn on the Description column
' # itunespathdescription.vbs
' # This script set the Description of all the files in a single playlist
' # to the file Path.
' # Copyright (C) 2008 Robert Jacobson
' # written by: Robert Jacobson (http://home.comcast.net/~teridon73/itunesscripts)
' # Last Updated: 2 Feb 2008
' # Version 1.0
' # This script is GPL v2. see http://www.gnu.org/copyleft/gpl.html
' # Change record:
' # 1 Script creation
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 playlists
Dim playlist
Dim playlistName
Dim j
Dim m
Dim songName
Dim artist
Dim result
Dim listarray
Dim num
Dim k
Dim track
Dim numtracks
Set iTunesApp = CreateObject("iTunes.Application.1")
Set sources = iTunesApp.Sources
DIM use_windows
Dim Playlist_list
'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
For i = 1 to sources.Count
Set source = sources.Item(i)
IF source.Kind = 1 Then
Set playlists = source.Playlists
if use_windows = 0 Then
For j = 1 to playlists.Count
Set playlist = playlists.Item(j)
playlistName = playlist.Name
Wscript.Echo j & ": " & playlistName
Next
Else
For j = 1 to playlists.Count
Set playlist = playlists.Item(j)
playlistName = playlist.Name
Playlist_list = Playlist_list & j & ": " & playlistName & Chr(10)
Next
End if
If use_windows = 0 Then
Wscript.Echo ""
Wscript.StdOut.Write "Enter comma-separated lists to process: "
result = Wscript.StdIn.ReadLine
Else
result = InputBox(Playlist_list & Chr(10) & "Enter comma-separated lists to process: ", "Which Playlist(s)")
End if
listarray = split(result, ",")
For k = 0 to UBound(listarray)
num = listarray(k)
Set playlist = playlists.Item(num)
playlistName = playlist.Name
If use_windows = 0 Then
Wscript.Echo ""
Wscript.Echo chr(9) & "Processing playlist " & num & ": " & playlistName
End If
Set tracks = playlist.Tracks
numtracks = tracks.Count
If use_windows = 0 Then
Wscript.Echo chr(9) & "tracks: " & numtracks
End If
For m = numtracks to 1 step -1
'If m > tracks.Count Then Exit For
Set track = tracks.Item(m)
'Wscript.Echo "num: " & numtracks & " Count: " & tracks.Count & " m: " & m
If track.Kind = 1 Then
FileList = track.Location
track.Description = FileList
End If
Next
If use_windows = 0 Then
Wscript.Echo "Finished processing playlist " & playlistName
End If
Next
'End If
End If
Next
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.