Forum Home
Press F1
 
Thread ID: 82961 2007-09-14 07:06:00 Printout of all songs/artists in my iTunes? --Wolf-- (128) Press F1
Post ID Timestamp Content User
591145 2007-09-14 09:51:00 Yup, mine only shows artist, name and time tho.

Am grouping them as

Album - name of band
Album artist - how many songs in that 'album' 		--Wolf-- (128)
591146 2007-09-14 09:55:00 I have a number of tracks in iTunes titled Zen Cuts 101, 106, 107 etc which I copied from an old workmates HD with no other info available from iTunes. Fortunatley most of the music I have has been ripped from CDs so it has the full album details. You might want to do a search on either iLounge.com support forums or Apple support forums/iTunes and see what options people have used to get the full album info. winmacguy (3367)
591147 2007-09-14 11:26:00 *cough* get WMP11* beeswax34 (63)
591148 2007-09-14 11:42:00 Stuff WMP11

I'm only doing this because when you play a song in the new iPods, the cover art is shown behind it.

After spending a few hours messing with it (and having some fun creating some of my own cover arts) I just decided to link the same picture/cover art to it's artists(s)

It turned out a bit like this:

img.photobucket.com

You can't see in that pic, but obviously the same coverart will be shown again and again for every song from that artist I have, if that makes sense.

I just hope, on the iPod Touch, you can turn it to only show the artist and song, I don't want every song saying Unknown Album under it. 		--Wolf-- (128)
591149 2007-09-14 18:47:00 *cough* get WMP11*

WMP 11 *cough* DRMs all tracks *cough* iTunes doesn't:D and Windows hasn't worked out how to do it *cough* yet *cough* withOUT DRM *cough* 		winmacguy (3367)
591150 2007-09-14 18:49:00 It turned out a bit like this:

img.photobucket.com

You can't see in that pic, but obviously the same coverart will be shown again and again for every song from that artist I have, if that makes sense.

I just hope, on the iPod Touch, you can turn it to only show the artist and song, I don't want every song saying Unknown Album under it.

if you click on that icon (lower right) of your Cover Flow screen it will give you full screen Cover Flow. 		winmacguy (3367)
591151 2007-09-14 18:58:00 *cough* get WMP11*

WMP 11 won't do this *cough*
www.imagef1.net.nz 		winmacguy (3367)
591152 2007-09-14 23:14:00 In answer to your original question, I wrote some code to extract all of the file property information from music files and store that information in Excel. I don't have an iPod but if you can hook it up to your PC and it assigns a unique drive letter, then you can use this code in Excel to get a full list of the songs including the directory, artist, album etc. You will need to make a couple of amendments to the code (see the constants at the top of the code). This code is run from Excel and here (www.mrexcel.com) is the original question from MrExcel, and below is the relevant code:

Option Explicit
'_________________________________________________ ___________
'
'Written by Andrew Fergus 10 September 2007
'_________________________________________________ ___________

Public RowCount As Long

'SET THE DRIVE / FOLDER TO SEARCH HERE
Const MyStartFolder As String = "E:\MyMusicFiles\Music"
'SET THE WORKSHEET NAME TO HOLD THE RESULTS HERE
Const MyOutputSheet2 As String = "Sheet2"

Public Sub GetMyListOfMusic()

RowCount = 1
With Application.FileSearch
.NewSearch
.LookIn = MyStartFolder
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Execute
If .FoundFiles.Count > 0 Then
GetMySongs (MyStartFolder)
Else
MsgBox "There were no files in that directory!", vbCritical, "Error"
End If
End With

MsgBox "Finished creating file list!", vbInformation, "Done!"

End Sub

Sub GetMySongs(TargetDir As Variant)

Dim objShell As Object
Dim objFolder As Object
Dim strFileName As Variant

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TargetDir)

For Each strFileName In objFolder.Items
If objFolder.GetDetailsOf(strFileName, 2) = "File Folder" Then
GetMySongs (TargetDir & "\" & objFolder.GetDetailsOf(strFileName, 0))
Else
RowCount = RowCount + 1
With Worksheets(MyOutputSheet2)
'File Name
.Cells(RowCount, 1) = objFolder.GetDetailsOf(strFileName, 0)
'Location
.Cells(RowCount, 2) = TargetDir
'Artist
.Cells(RowCount, 3) = objFolder.GetDetailsOf(strFileName, 16)
'Album
.Cells(RowCount, 4) = objFolder.GetDetailsOf(strFileName, 17)
'Year
.Cells(RowCount, 5) = objFolder.GetDetailsOf(strFileName, 18)
'Genre
.Cells(RowCount, 6) = objFolder.GetDetailsOf(strFileName, 20)
'Track number
.Cells(RowCount, 7) = objFolder.GetDetailsOf(strFileName, 19)
'Format
.Cells(RowCount, 8) = objFolder.GetDetailsOf(strFileName, 2)
End With
End If
Next

Set objShell = Nothing
Set objFolder = Nothing

End Sub

HTH, Andrew 		andrew93 (249)
1 2