Code: Select all

Z:\$if(<Genre>=PodCast,Music Podcast,Music)\$if(<Genre>=PodCast,<album>\,$if(<Type>=MP3,,$if(<Genre>=PodCast,,~CONVERT\<Type>\))<Album Artist>\$if(<Album>,$if(<Album>=Singles,,$if(<Album Artist>=Various,,$if(<Year>,[<Year>])) <Album>),)\$if(<Album>=Singles,,$if(<Track#>,$if(<Disc#>,<Disc#>-,)<Track#:2>,<Artist>) - ))$if(<Genre>=PodCast,<Date> - )<Title>

Code: Select all

E:\Audio\$if(<Genre>=Soundtrack,Soundtrack\<Album@1>\<Album>$if(<Disk#>,\CD<Disk#>),$if(<Album Interpret>=Verschiedene,Sampler\<Album@1>\<Album>$if(<Disk#>,\CD<Disk#>),$if(<Genre>=Hörbuch,Hörbücher\<Album@1>\<Album>$if(<Disk#>,\CD<Disk#>),Musik\<Interpret@1>\<Interpret>\$if(<Album>,<Album>$if(<Disk#>,\CD<Disk#>)))))\$if(<Disk#>,<Disk#>-)$if(<Song#>,<Song#>. )$if(<Album Interpret>=Verschiedene,<Interpret> - )<Titel>

Code: Select all

$if(<Genre>=Hörbuch OR =Audiobook,Hörbücher\<Album@1>\<Album>$if(<Disk#>,\CD<Disk#>)

Code: Select all

' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' Written by MPG to help organize his collection
' Designed for personal use only
'
' This script will organize artists into one folder.
' Level of Organization is
' 0 = Path to Letter, 1 = Path To Artist
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
CONST adVarChar = 200
CONST adSingle = 4

Sub AutoOrganize
  ' Define variables
  Dim list 'MediaMonkey display list
  Dim itm 'selected items
  Dim rsArtistInfo, rsRpt  'recordset to store artist, genre and path and recordset for report
  Dim tmpDepth, tmpPath 'Temp placeholder for path and for depth
  Dim intCnt, intTotCnt 'Counters
  
  Set list = SDB.CurrentSongList 
  If list.Count <= 1 Then
    MsgBox "Please select more than 1 track"
    Exit Sub
  End If

  'create recordsets
  Set rsArtistInfo = CreateObject("ADODB.Recordset")
  With rsArtistInfo
    .Fields.Append "Artist", adVarChar, 200
    .Fields.Append "Genre", adVarChar, 50
    .Fields.Append "Path", adVarChar, 300
    .Fields.Append "Depth", adSingle
    .Open
  End With

  Set rsRpt = CreateObject("ADODB.Recordset")
  With rsRpt
    .Fields.Append "Artist", adVarChar, 200
    .Fields.Append "Genre", adVarChar, 50
    .Fields.Append "Path", adVarChar, 300
    .Fields.Append "Depth", adSingle
    .Open
  End With

  Set itm = list.Item(0)
  
  'load first artists info
  With rsArtistInfo
    .AddNew
    .Fields("Artist").Value = itm.ArtistName
    .Fields("Genre").Value = itm.Genre
    .Fields("Path").Value = itm.Path
    tmpPath = GetPath(itm.Path)
    If inStr(tmpPath, itm.ArtistName) Then
      .Fields("Depth").Value = 1
    Else
      .Fields("Depth").Value = 0
    End If
  End With
  
  intTotCnt = list.count-1
  
  For intCnt = 1 To intTotCnt
    Set itm = list.Item(intCnt)
 
    'find item in recordset
    With rsArtistInfo
      .MoveFirst
      .Find("Artist = #" & itm.ArtistName & "#")
      If Not .EOF Then
      
        'check genre
        If itm.Genre <> .Fields("Genre").Value Then
            rsRpt.AddNew
            rsRpt.Fields("Artist").Value = itm.ArtistName
            rsRpt.Fields("Genre").Value = itm.Genre
            rsRpt.Fields("Path").Value = itm.Path
            rsRpt.Fields("Depth").Value = tmpDepth
        Else
        
          'check path
          tmpPath = GetPath(itm.Path)
          If inStr(tmpPath, itm.ArtistName) Then
            tmpDepth = 1
          Else
            tmpDepth = 0
          End If

          'check depth
          If tmpDepth <> .Fields("Depth").Value Then
          
            'only report the shortest path
            If tmpDepth = 0 Then
              rsRpt.AddNew
              rsRpt.Fields("Artist").Value = itm.ArtistName
              rsRpt.Fields("Genre").Value = itm.Genre
              rsRpt.Fields("Path").Value = itm.Path
              rsRpt.Fields("Depth").Value = tmpDepth
            Else
              rsRpt.AddNew
              rsRpt.Fields("Artist").Value = .Fields("Artist").Value
              rsRpt.Fields("Genre").Value = .Fields("Genre").Value
              rsRpt.Fields("Path").Value = .Fields("Path").Value
              rsRpt.Fields("Depth").Value = .Fields("Depth").Value
            End If
          End If
        End If
      Else
        'add new artist to recordset
        .AddNew
        .Fields("Artist").Value = itm.ArtistName
        .Fields("Genre").Value = itm.Genre
        .Fields("Path").Value = itm.Path
        If InStr(1, itm.Path, itm.ArtistName, 1) Then
          .Fields("Depth").Value = 1
        Else
          .Fields("Depth").Value = 0
        End If
      End If
    End With
  Next
  
  DisplayReport rsRpt
  
  rsArtistInfo.Close
  rsRpt.Close
  Set rsArtistInfo = nothing
  Set rsRpt = nothing
  Set list = nothing
  Set itm = nothing
End Sub

Function GetPath(pstrPath)
  Dim aryParse
  Dim intCnt, intTotCnt  
  Dim strRtrn
  aryParse = Split(pstrPath, "\")

  intTotCnt = UBound(aryParse) - 1
  For intCnt = 0 to intTotCnt
    strRtrn = strRtrn & aryParse(intCnt) & "\"
  Next
  GetPath = strRtrn
End Function

Private Sub DisplayReport(prsData)
  Dim xlApp
  Dim xlWorkbook
  Dim xlWorksheet
  Dim myrange
  Dim i
  Dim j
  Dim SumStr
  Dim SelectedColumn
  	
	set xlApp = CreateObject("Excel.Application")
	xlApp.Visible = True
	set xlWorkbook = xlApp.WorkBooks.Add
	set xlWorksheet = xlWorkBook.Worksheets.Add

	'msgbox "Excel objects created"
	xlWorksheet.Cells(1,1)="Artist"
	xlWorksheet.Cells(1,1).Font.Bold=True
	xlWorksheet.Cells(1,2)="Genre"
	xlWorksheet.Cells(1,2).Font.Bold=True
	xlWorksheet.Cells(1,3)="Path"
	xlWorksheet.Cells(1,3).Font.Bold=True
	xlWorksheet.Cells(1,4)="Depth"

	i=2
  With prsData
	  .Sort = "Artist ASC"
	  If not .bof then .movefirst

	  while not .eof 
      xlWorksheet.Cells(i,1)= .fields("Artist").value
      xlWorksheet.Cells(i,2)= .Fields("Genre").value
      xlWorksheet.Cells(i,3)= .Fields("Path").value
      xlworksheet.Cells(i, 4)= .fields("Depth").value
      i=i+1
      .movenext
	  Wend
	End With
	set myrange = xlWorksheet.UsedRange
	myrange.Columns("A:E").Autofit
End Sub