Sort based on movie sub-category, specifically format

[feerlessleadr]

Like the title states, is there a way to sort my downloads not only by category (movies, tv, apps, etc) but also by format?

So for example, when I download an xvid movie, it will go into F:\Xvid, and when I download an x264 movie it will go into G:\x264?

I tried to create additional categories in the Categories section by having the "Newzbin/Group" be "Movies\Video Fmt\Xvid" and "Movies\Video Fmt\x264" and also "Movies\Xvid" and "Movies\x264", however, not surprisingly, when I download a movie from either of the xvid or x264 sub-categories, SABnzbd does not recognize which to put it it, so it leaves it as None in the queue.

Is there a way to have SABnzbd recognize the xvid and x264 movie format sub-category for the purposes of sorting?

thanks so much.

By the way, I am using nzbstatus in conjunction with newzbin to send the nzb's to SABnzbd.  I realize that I would download the files to different sub-folders within the watched folder, but I was wondering if there was a way to do this automatically for me within SABnzbd, or by way of a script that I could run.

[feerlessleadr]

just as an FYI for anyone with a similar question.

I was able to acomplish this task through a vb script that someone wrote for me over at neowin

What it does is it looks trough the subfolders in my processed downloads folder and looks for either an mkv or avi file.

based on whatever type of file it finds within each subfolder, it will put the folder and all of its contents into either my HD Movies folder or SD movies folder

Here is the vbs:

Code: Select all

Dim Fso :Set Fso = CreateObject("Scripting.FileSystemObject")
Dim Dir :Dir = "D:\Moves Move Test\Original"
Dim CopyTo1, CopyTo2
  CopyTo1 = "D:\Moves Move Test\Location 1\"
  CopyTo2 = "D:\Moves Move Test\Location 2\"
  Recursive Fso.GetFolder(Dir)
   Function Recursive(Folder)
   On Error Resume Next
    Dim Col :Set Col = Folder.files
    Dim File, F1
    For Each File In Col
     If InStr(LCase(File.Path),".avi") Then
      Set F1 = Fso.GetFolder(Fso.GetParentFolderName(File.Path))
       Fso.CopyFolder F1.Path, CopyTo1 & F1.Name, True
       Fso.DeleteFolder(F1.Path),True
     End If
     If InStr(LCase(File.Path),".mkv") Then
      Set F1 = Fso.GetFolder(Fso.GetParentFolderName(File.Path))
       Fso.CopyFolder F1.Path, CopyTo2 & F1.Name, True
       Fso.DeleteFolder(F1.Path),True
     End If
    Next
    Dim Obj
    For Each Obj In Folder.subFolders
     Recursive Obj
    Next
   End Function
   MsgBox "Completed Movies Moves",4128,"Finished"

you will need to change the drive paths to match your setup, but I am sure you already know that

I take absolutely no credit for this as it was all done by neowin member "jake1eye"