Sort/organize mp3 files by bitrate, into folders

[nkormanik]

Looking for a way to sort/organize mp3 files in a folder into a set of folders by bitrate:

320 kbps mp3s --> appropriate folder named "320"
192 kbps mp3s --> appropriate folder named "192"
etc.

Any thoughts appreciated.

Nicholas Kormanik

[skwire]

Looking for a way to sort/organize mp3 files in a folder into a set of folders by bitrate:

320 kbps mp3s --> appropriate folder named "320"
192 kbps mp3s --> appropriate folder named "192"

-nkormanik (May 13, 2020, 07:55 AM)

What happens if the files are VBR (Variable Bit Rate)?  If you have VBR files, you will end up with a mess.

[nkormanik]

Excellent point, Skwire.  That may be the reason why no such program seems to exist out there.

Request still stands, however.  I'd really like to be able to do as I ask.

You did something similar with image files.  Auto sorting into folders by dimension.

[4wd]

Add the four lines needed to create the folder, and change the Remove-Item line to Move-Item.

[nkormanik]

4wd, please elaborate?

[Nod5]

This worked for me in a quick test. But do try it out on some smaller folders first to see that it works as expected on your files, since mp3 tags and exif data can be complicated and I don't know if the function I use handles all corner cases correctly.

Code: Autohotkey [Select]

1. #NoEnv
2. SendMode Input
3. SetWorkingDir %A_ScriptDir%
4. #SingleInstance force
5. ListLines, Off
6. SetBatchLines, -1
7.  
8. ; sort mp3 files into folders based on bitrate and if they are VBR or not
9. ; AutoHotkey script
10. ; by nod5
11. ; 2020-05-14
12.  
13. ; ---------------------------------------
14. ; folder with mp3 files that we want to sort move
15.  
16. sourcefolder      := "C:\some\folder"
17.  
18. ; also recurse in sourcefolder? 1 means yes, 0 means no
19. recurse := 1
20.  
21. ; target folder where we want the files to end up in subfolders
22. ; for example VBR files go to \VBR subfolder, 128kbs CBR files got to \128 subfolder
23.  
24. destinationfolder := "D:\this other\location"
25.  
26. ; ---------------------------------------
27.  
28. ; disable recurse if in/out folders are same, to avoid endless loop
29. if (sourcefolder = destinationfolder)
30.   recurse := 0
31.  
32. ; recursively loop sourcefolder for mp3 files and move to a destinationfolder subfolder
33. Loop, Files, % sourcefolder "\*.mp3", % recurse ? "R" : ""
34. {
35.   ToolTip, % A_LoopFileName
36.   ; get audio properties as object
37.   ; we need these two properties:
38.   ; System.Audio.EncodingBitrate      examples: 128000 (which is 128kbs), 320000, 263704, ...
39.   ; System.Audio.IsVariableBitRate    value -1 if VBR otherwise value 0
40.   Props := ["System.Audio.IsVariableBitRate", "System.Audio.EncodingBitrate"]
41.   obj := Filexpro(A_LoopFilePath,, Props*)           ; v.90 By SKAN on D1CC @ goo.gl/jyXFo9
42.  
43.   ; if VBR then move to subfolder "\VBR"
44.   if (obj["System.Audio.IsVariableBitRate"] = "-1")
45.     subfolder := "VBR"
46.   else
47.   {
48.     ; else move CBR to matching bitrate folder, for example "\128"
49.     ; get bitrate in kbs, for example 128000 -> 128
50.     subfolder := SubStr(obj["System.Audio.EncodingBitrate"],1,-3)
51.   }
52.   if subfolder
53.   {
54.     if !FileExist(destinationfolder "\" subfolder)
55.       FileCreateDir, % destinationfolder "\" subfolder
56.     FileMove, % A_LoopFilePath, % destinationfolder "\" subfolder
57.   }
58. }
59. ToolTip DONE
60. sleep 2000
61. ExitApp
62.  
63.  
64.  
65. ; function: Filexpro
66. ; get extended properties from file
67. ; by SKAN 2018-12-11
68. ; https://www.autohotkey.com/boards/viewtopic.php?t=59882
69.  
70. Filexpro( sFile := "", Kind := "", P* ) {           ; v.90 By SKAN on D1CC @ goo.gl/jyXFo9
71. Local
72. Static xDetails
73.  
74.   If ( sFile = "" )
75.     {                                                           ;   Deinit static variable
76.         xDetails := ""
77.         Return
78.     }
79.  
80.   fex := {}, _FileExt := ""
81.  
82.   Loop, Files, % RTrim(sfile,"\*/."), DF
83.     {
84.         If not FileExist( sFile:=A_LoopFileLongPath )
85.           {
86.               Return
87.           }
88.  
89.         SplitPath, sFile, _FileExt, _Dir, _Ext, _File, _Drv
90.  
91.         If ( p[p.length()] = "xInfo" )                          ;  Last parameter is xInfo
92.           {
93.               p.Pop()                                           ;         Delete parameter
94.               fex.SetCapacity(11)                               ; Make room for Extra info
95.               fex["_Attrib"]    := A_LoopFileAttrib
96.               fex["_Dir"]       := _Dir
97.               fex["_Drv"]       := _Drv
98.               fex["_Ext"]       := _Ext
99.               fex["_File"]      := _File
100.               fex["_File.Ext"]  := _FileExt
101.               fex["_FilePath"]  := sFile
102.               fex["_FileSize"]  := A_LoopFileSize
103.               fex["_FileTimeA"] := A_LoopFileTimeAccessed
104.               fex["_FileTimeC"] := A_LoopFileTimeCreated
105.               fex["_FileTimeM"] := A_LoopFileTimeModified
106.           }              
107.         Break            
108.     }
109.  
110.   If Not ( _FileExt )                                   ;    Filepath not resolved
111.     {
112.         Return
113.     }        
114.  
115.  
116.   objShl := ComObjCreate("Shell.Application")
117.   objDir := objShl.NameSpace(_Dir)
118.   objItm := objDir.ParseName(_FileExt)
119.                                                                
120.   If ( VarSetCapacity(xDetails) = 0 )                           ;     Init static variable
121.     {
122.         i:=-1,  xDetails:={},  xDetails.SetCapacity(309)
123.        
124.         While ( i++ < 309 )
125.           {
126.             xDetails[ objDir.GetDetailsOf(0,i) ] := i
127.           }
128.  
129.         xDetails.Delete("")
130.     }
131.  
132.   If ( Kind and Kind <> objDir.GetDetailsOf(objItm,11) )        ;  File isn't desired kind  
133.     {
134.         Return
135.     }
136.  
137.   i:=0,  nParams:=p.Count(),  fex.SetCapacity(nParams + 11)
138.  
139.   While ( i++ < nParams )
140.     {
141.         Prop := p[i]
142.        
143.         If ( (Dot:=InStr(Prop,".")) and (Prop:=(Dot=1 ? "System":"") . Prop) )
144.           {
145.               fex[Prop] := objItm.ExtendedProperty(Prop)
146.               Continue
147.           }
148.          
149.         If ( PropNum := xDetails[Prop] ) > -1
150.           {
151.               fex[Prop] := ObjDir.GetDetailsOf(objItm,PropNum)
152.               Continue
153.           }  
154.     }
155.  
156.   fex.SetCapacity(-1)
157. Return fex  
158.  
159. }

Alternatively if you want a GUI approach you could drag all the mp3 files into Mp3Tag, sort by columns bitrate and VBR, select a range of files e.g. all with 128 kbs and use right click context menu action "move...".

[nkormanik]

Skwire, your Tags2Folders is about as close as they come.  Just need the additional token bitrate....

[nkormanik]

Nod5, beautifully done.  Worked on sample set of mp3s. 

Before I try on actual collection I'll give it a few days to see if it works for others, or if you decide to make any refinements.

Thanks a million!

[IainB]

@nkormanik:
"Looking for a way to sort/organize mp3 files in a folder into a set of folders by bitrate:"

I don't think I understand the need for this question.

You would already have all you seem to need to do this on an ad hoc basis. The system knows all about what audio files you have and their properties and the file manager can be invoked to swiftly sort these as and when you require. I use xplorer² (it also lets you turn nested directories into a manageable virtual flat file), but I presume Windows file manager can do it also - since the system knows all about what files you have.

If you had a dynamically changing population of audio files though, and wanted to (say) periodically sort newcomers into the appropriate folders, then you could do so manually or automate via a macro, I suppose, but again, I'd do that in xplorer².

[nkormanik]

the file manager can be invoked to swiftly sort these

-IainB (May 15, 2020, 12:00 PM)

If only.  Yes, in a small set of mp3 files, Explorer can show a column of bitrate values.  But in larger collections Explorer chokes.  One has to 'page down' for all the files, and even then....

[skwire]

Skwire, your Tags2Folders is about as close as they come.  Just need the additional token bitrate....

-nkormanik (May 14, 2020, 11:26 PM)

Added in v1.1.2.  See here: https://www.donationcoder.com/forum/index.php?topic=19543.msg438418#msg438418

[nkormanik]

You the man, Skwire.  Thanks so much.  Yes, creates a mess.  But, at least now possible.

And thanks Nod5.  Such amazing work.