AutoHotkey Community

;H.P.


SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetTitleMatchMode, 2
SetTitleMatchMode, slow

#c::
      WinGet,Prozessname,ProcessName,A
      If Prozessname=explorer.exe
         ControlGet,text, Line,1,Edit1,A
      Else
         text=%A_Desktop%
      ControlGet,dateiname,List,Focused,SysListView321,ahk_class ExploreWClass
      Loop,Parse,dateiname,%A_TAB%
         If A_INDEX=1
            dateiname=%A_LoopField%
      StringRight,istDatei,Dateiname,4
      StringLeft,istDatei,istDatei,1
      Run,%COMSPEC%,%Text%
      If istDatei=.
      {
         WinWaitActive,cmd.exe ahk_class ConsoleWindowClass,,3
         Send, %dateiname%
      }
Return

loop, %dir%\%file%\*.*

loop, %dir%\%file%\*.* , 0, 1

loop, %dir%\*.*

loop, %dir%\*.* , 0, 1

This file does not have a program associated with it for performing this action.Create an association in the Folder Options control panel

splitpath, 1, file, dir
 
filegetattrib, attr, %1%
if attr contains D ; launched from a directory
{

  m3u = %dir%\%file%\%file%.m3u
 
  loop, %dir%\%file%\*.*
  {
    splitpath, A_LoopFileName, , , ext
    if ext in WAV,AIFF,AIF,IFF,SVX,SND,AU,VOC,CUE,OGG,MPC,MP+,MPP,MP3,MP2,MP4,M4A,AAC,FLAC,FLA,APE,MAC,WV,SPX,SID,CDA
    {
      filelist = %filelist%%A_LoopFileLongPath%`n
      count++
    }
  }   
 
  if count = ; no audio files found
    return

  sort, filelist
 
  filedelete, %m3u%
  fileappend, #EXTM3U`n%filelist%, %m3u%

}
else ; launched from a file
{

  ; get the current folder for the m3u name:
  stringsplit, array, dir, \
  folder := array%array0%   
  m3u = %dir%\%folder%.m3u

  loop, %dir%\*.*
  {
    splitpath, A_LoopFileName, , , ext
    if ext in WAV,AIFF,AIF,IFF,SVX,SND,AU,VOC,CUE,OGG,MPC,MP+,MPP,MP3,MP2,MP4,M4A,AAC,FLAC,FLA,APE,MAC,WV,SPX,SID,CDA
    {
      filelist = %filelist%%A_LoopFileLongPath%`n
      count++
    }
  }   

  if count = ; no audio files found
    return

  sort, filelist
 
  filedelete, %m3u%
  fileappend, #EXTM3U`n%filelist%, %m3u%

}
return

REGEDIT4

[HKEY_CLASSES_ROOT\AllFileSystemObjects\shell\Create Playlist]
@="Create Playlist"

[HKEY_CLASSES_ROOT\AllFileSystemObjects\shell\Create Playlist\command]
@="\"C:\Program Files\m3uCreator\m3uCreator.exe\" \"%1\""

IfWinNotActive, ahk_class ExploreWClass
  Exit

count = 0
type = WAV,AIFF,AIF,IFF,SVX,SND,AU,VOC,CUE,OGG,MPC,MP+,MPP,MP3,MP2,MP4,M4A,AAC,FLAC,FLA,APE,MAC,WV,SPX,SID,CDA,wmv,avi,mpg,mpeg,asf,divx,mkv

ControlGetText, path, Edit1, ahk_class ExploreWClass
StringGetPos, pos, path, \, R
pos+=1
StringTrimLeft, dir, path, %pos%
m3u = %path%\00 %dir%.m3u
filedelete, %path%\*.m3u

Loop, %path%\*,, 1  ;change to 0 to not include subfolders
  {
  splitpath, A_LoopFileName,,, ext
  If ext in %type%
    {
    filelist = %filelist%%A_LoopFileFullPath%`n
    count++
    }
  }
IfGreater, count, 0
  {
  Sort, filelist
  Fileappend, #EXTM3U`n%filelist%, %m3u%
  }
ExitApp