Cover Art Inventory Spreadsheet

[GadgetGeek]

OK, initial attempt at this.  Attached is an excel spreadsheet that will scan the specified directory looking for artwork.  You can specify a default image (such as cover.jpg) and it will inform you if it exists or not and it will also list off any additional artwork (jpg format) found off to the right.  The Results Offset is for which column on the CoverInfo tab for the results to start in (6 would start in F).  You need to have full write access to the Working Directory specified.
Going forward, I'm going to attempt to replace the "Exists" result with the image size (ex. 300x300) for the default image.  I think I've found some sample code that will allow that, but have yet to test it.
This WON'T go finding additional artwork for you.  There are several hreads already devoted to that.
Constructive feedback appreciated.  Enjoy

Oh, and it won't let me upload .zip files, to once you download this .txt file, rename it to .zip and all should be fine.

edited to change file to v02.  Returns dimensions of default images.

[JackTucky]

sweet!  I'll test tonight or tomorrow and let you know how I do.

Thanks

Art

[JackTucky]

heh heh.  couldn't wait.  I'm getting this error:

Runtime error 52, bad file name or number.  If I click debug:

it's errored on the IF dir line:

  With Range("coverinfo!a3")
    Do
      ' check for the default
      If Dir(.Offset(i, 0).Value & "\" & strDefaultCover) <> "" Then

Art

[GadgetGeek]

is it erring on the first file?  If you add "On Error Resume Next" to that subroutine (near the beginning somewhere) does that resolve the issue?

I've tested the logic for image dimensions and I'm hoping to integrate it into the sheet later tonite.

[GadgetGeek]

OK, I've updated the spreadsheet to (optionally) return the image dimensions of the default coverart.  For example, if the field is set to yes and the default image name is cover.jpg, it would return 300x300 (or whatever it actually is) if it exists, or "missing" if it doesn't.  If set to "no", it returns "Exists" or "missing" as appropriate.
The new version is v02 and it is attached to the first message of the thread.
As before, once downloaded, rename from .txt to .zip and all should be fine.

[JackTucky]

Version 1 continued when I put that error handling code in there.  However, it's not navigating down far enough in my directory tree to look for covers.  My directory setup is:

g:\music\artist\album\music & covers

In a few cases, I don't have an album directory, it works then.

Version 2 fails on this code:

 Range("coverinfo!a3:az65536").ClearContents
  ' now load the listing file
  Open strWork & "coverlist.txt" For Input As #1
  i = 0
  With Range("coverinfo!a3")
    Do
Line Input #1, inrec
      .Offset(i, 0).Value = inrec
      i = i + 1
    Loop Until EOF(1)
  End With
  Close #1
  ' now split it on directories
  Range("CoverInfo!A3:A65536").TextToColumns Destination:=Range("CoverInfo!B3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="\"
End Sub


Thanks.  This looks like it will be really valuable.

Art

[GadgetGeek]

Is it failing on the first record?
Could you send me the coverlist.txt file?  That might help me see what might be going on.
Send it to arcade at welander dot com. Hopefully I'll get the chance to look at it tonite.

As for the not navigating far enough...if you look at the data I left in the sheet that is downloaded, you will see that it first lists all the artist directories, then it lists all the artist\album directories.  These first directories won't see anything, and I've toyed with deleting them, but I was wanting to get something up and running first, and I was thinking that maybe someone might have a non-consistent directory structure and this would still find the images this way.

[JackTucky]

Cool, now I see that.  I'm sending my coverlist.txt file.

Art