AutoHotkey Community

/*
; Select only files that are there in the specified .m3u playlist
; The other files will have an extension ".del" so that you know the deleted songs
*/


Inputfile = delete.m3u
ifnotexist, %Inputfile%
{
 FileSelectFile, Inputfile,1,,Select playlist..,Playlists (*.m3u)
 if Errorlevel
  ExitApp
}
SplitPath, Inputfile,,,,,InDrive  ;Get drive
if not InDrive
  Splitpath,A_ScriptDir,,,,,InDrive
Loop, Read, %InputFile%
{
 StringLeft, FirstLetter, A_LoopReadLine, 1
 if FirstLetter=`#
  continue
 if FirstLetter=`\
  FilePath := InDrive . A_LoopReadLine
 else
  FilePath := A_LoopReadLine
 SplitPath, FilePath,,tPath
 if tPath != oPath
  {
   oPath := tPath
   if Paths
    Paths .= "|" . oPath
   else
    Paths := oPath
  }
 FileMove, %FilePath%, %FilePath%.sel
}

if not Paths
  Paths=|
Loop,Parse,Paths,|
{
  Loop,%A_LoopField%\*.mp3
  {
   FileMove,%A_LoopFileFullPath%,%A_LoopFileFullPath%.del
  }
}

Loop,Parse,Paths,|
{
  Loop,%A_LoopField%\*.sel
  {
   StringTrimRight, restoreName, A_LoopFileFullPath, 4
   FileMove,%A_LoopFileFullPath%,%restoreName%
  }
}