by MoDementia » Fri May 15, 2009 4:38 pm
Lines 1635 to 1665
Either just show the first cover xCounter = 0
or
Add a check for objSongData.AlbumArt.Item(xCounter).ItemType = Cover (Front) 3?
and exit the loop. Need to make sure it only does the then part of
Code: Select all
If xCounter = 0 Then
ThisData = "AlbumArt\" & ThisFilename
Else
ThisData = ThisData & "|||" & "AlbumArt\" & ThisFileName
End If
Code: Select all
For xCounter = 0 to objSongData.AlbumArt.Count-1
If objSongData.AlbumArt.Item(xCounter).ItemStorage = 1 Then
ExtFilename = objSongData.AlbumArt.Item(xCounter).PicturePath
pos = InStrRev(ExtFilename,".")
ThisArtExt = Right(ExtFileName,RightNbr)
ThisFilePath = ArtFolder & objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
ThisFileName = objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
If NOT FSO.FileExists(ExtFilename) Then
ThisFileName = "File Not Accessible " & ExtFilename
Else
FSO.CopyFile ExtFilename,ThisFilePath,True
End If
Else
If FSO.FileExists(objSongData.Path) Then
ThisArtExt = Replace(objSongData.AlbumArt.Item(xCounter).Image.ImageFormat,"image/","")
ThisArtExt = Replace(ThisArtExt,"x-","")
ThisFilePath = ArtFolder & objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
ThisFileName = objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
Set CoverFile = TFS.CreateTextFile(ThisFilePath, True)
CoverFile.WriteData objSongData.AlbumArt.Item(xCounter).Image.ImageData, objSongData.AlbumArt.Item(xCounter).Image.ImageDataLen
CoverFile.Close
Else
ThisFileName = "File Not Accessible " & objSongData.Path
End If
End If
If xCounter = 0 Then
ThisData = "AlbumArt\" & ThisFilename
Else
ThisData = ThisData & "|||" & "AlbumArt\" & ThisFileName
End If
Next
Lines 1635 to 1665
Either just show the first cover xCounter = 0
or
Add a check for objSongData.AlbumArt.Item(xCounter).ItemType = Cover (Front) 3?
and exit the loop. Need to make sure it only does the then part of
[code]
If xCounter = 0 Then
ThisData = "AlbumArt\" & ThisFilename
Else
ThisData = ThisData & "|||" & "AlbumArt\" & ThisFileName
End If
[/code]
[code]
For xCounter = 0 to objSongData.AlbumArt.Count-1
If objSongData.AlbumArt.Item(xCounter).ItemStorage = 1 Then
ExtFilename = objSongData.AlbumArt.Item(xCounter).PicturePath
pos = InStrRev(ExtFilename,".")
ThisArtExt = Right(ExtFileName,RightNbr)
ThisFilePath = ArtFolder & objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
ThisFileName = objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
If NOT FSO.FileExists(ExtFilename) Then
ThisFileName = "File Not Accessible " & ExtFilename
Else
FSO.CopyFile ExtFilename,ThisFilePath,True
End If
Else
If FSO.FileExists(objSongData.Path) Then
ThisArtExt = Replace(objSongData.AlbumArt.Item(xCounter).Image.ImageFormat,"image/","")
ThisArtExt = Replace(ThisArtExt,"x-","")
ThisFilePath = ArtFolder & objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
ThisFileName = objSongData.AlbumArt.Item(xCounter).ItemType & "_" & xCounter & "." & ThisArtExt
Set CoverFile = TFS.CreateTextFile(ThisFilePath, True)
CoverFile.WriteData objSongData.AlbumArt.Item(xCounter).Image.ImageData, objSongData.AlbumArt.Item(xCounter).Image.ImageDataLen
CoverFile.Close
Else
ThisFileName = "File Not Accessible " & objSongData.Path
End If
End If
If xCounter = 0 Then
ThisData = "AlbumArt\" & ThisFilename
Else
ThisData = ThisData & "|||" & "AlbumArt\" & ThisFileName
End If
Next
[/code]