AutoHotkey Community

revtxt(inVar)
{
    VarSetCapacity(out, n:=StrLen(inVar))
    Loop %n%
        out .= SubStr(inVar, n--, 1)
    return out
}

revtxt(inVar)
{
    return inVar
}

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#NoTrayIcon
#SingleInstance

RegRead, regpath , HKEY_CLASSES_ROOT, *\shell\Organize\Command,
regpathV =  AutoHotkey.exe "%A_ScriptFullPath%" "`%1"

IfNotInString, regpath, %regpathV%
{
  MsgBox,
  (
Registryentry changed.
This is the new path:
%regpathV%
  )
  RegWrite, REG_SZ, HKEY_CLASSES_ROOT, *\shell\Organize\Command,, AutoHotkey.exe "%A_ScriptFullPath%" "`%1"
  RegWrite, REG_SZ, HKEY_CLASSES_ROOT, AllFilesystemObjects\shell\Organize\Command,, AutoHotkey.exe "%A_ScriptFullPath%" "`%1"
}

if(%0% > 0)
{
  fullPath = %1% ; <- the error was here
}else
{
  ExitApp
}
revfullPath := revtxt(fullPath)
    StringGetPos, cut, revfullPath, \
    StringLeft, revfullPath, revfullPath, %cut%
    revfullPath := revtxt(revfullPath)
  StringGetPos, pos, revfullPath, .
if pos >= 0
{
  organizeThis(fullPath)
}else
{
  FileList =  ; Initialize to be blank.
  Loop, %fullPath%\*.*
      FileList = %FileList%%A_LoopFileName%`n
  Sort, FileList, R  ; The R option sorts in reverse order. See Sort for other options.
  Loop, parse, FileList, `n
  {
      if A_LoopField =  ; Ignore the blank item at the end of the list.
          continue
      organizeThis(fullPath "\" A_LoopField)
  }
}
ExitApp


revtxt(inVar)
{
    VarSetCapacity(out, n:=StrLen(inVar))
    Loop %n%
        out .= SubStr(inVar, n--, 1)
    return out
}


organizeThis(fullPath)
{
  revfullPath := revtxt(fullPath)
    StringGetPos, cut, revfullPath, \
    StringLeft, revfullPath, revfullPath, %cut%
    revfullPath := revtxt(revfullPath)
  StringGetPos, pos, revfullPath, .
  StringLeft, path_suffix, revfullPath, %pos%
  Loop, read, ini.txt
  {
    StringSplit, zeile, A_LoopReadLine, = , %A_Space%%A_Tab%
    StringSplit, Array, zeile1, * , %A_Space%%A_Tab%
    Loop, %Array0%
    {
      suffix := Array%a_index%
      path_suffix := path_suffix
      if suffix = %path_suffix%
      {
        FileMove, %fullPath%, %zeile2%
      }
    }
  }
}

#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%
#NoTrayIcon
#SingleInstance

RegRead, regpath , HKEY_CLASSES_ROOT, *\shell\Organize\Command,
regpathV =  AutoHotkey.exe "%A_ScriptFullPath%" "`%1"

IfNotInString, regpath, %regpathV%
{
  MsgBox,
  (
Registryentry changed.
This is the new path:
%regpathV%
  )
  RegWrite, REG_SZ, HKEY_CLASSES_ROOT, *\shell\Organize\Command,, AutoHotkey.exe "%A_ScriptFullPath%" "`%1"
  RegWrite, REG_SZ, HKEY_CLASSES_ROOT, AllFilesystemObjects\shell\Organize\Command,, AutoHotkey.exe "%A_ScriptFullPath%" "`%1"
}

if(%0% > 0)
{
  fullPath = %1%
}else
{
  ExitApp
}
revfullPath := revtxt(fullPath)
    StringGetPos, cut, revfullPath, \
    StringLeft, revfullPath, revfullPath, %cut%
    revfullPath := revtxt(revfullPath)
  StringGetPos, pos, revfullPath, .
if pos >= 0
{
  organizeThis(fullPath)
}else
{
  FileList = 
  Loop, %fullPath%\*.*
      FileList = %FileList%%A_LoopFileName%`n
  Sort, FileList, R 
  Loop, parse, FileList, `n
  {
      if A_LoopField = 
          continue
      organizeThis(fullPath "\" A_LoopField)
  }
}

revtxt(inVar)
{
    VarSetCapacity(out, n:=StrLen(inVar))
    Loop %n%
        out .= SubStr(inVar, n--, 1)
    return out
}


organizeThis(fullPath)
{
  revfullPath := revtxt(fullPath)
    StringGetPos, cut, revfullPath, \
    StringLeft, revfullPath, revfullPath, %cut%
    revfullPath := revtxt(revfullPath)
  StringGetPos, pos, revfullPath, .
  StringLeft, path_suffix, revfullPath, %pos%
  Loop, read, prefix.txt
  {
    StringSplit, zeile, A_LoopReadLine, = , %A_Space%%A_Tab%
    StringSplit, Array, zeile1, * , %A_Space%%A_Tab%
    Loop, %Array0%
    {
      suffix := Array%a_index%
      path_suffix := path_suffix
      if suffix = %path_suffix%
      {
        clipboard = %zeile2%
      }
    }
  }
}

reversefullPath := revtxt(fullPath)
StringGetPos, pos, reversefullPath, .
if pos >= 0
{
  organizeThat(fullPath)
}else
{
  FileList = 
  Loop, %fullPath%\*.*
      FileList = %FileList%%A_LoopFileName%`n
  Sort, FileList, R 
  Loop, parse, FileList, `n
  {
      if A_LoopField = 
          continue
      organizeThis(fullPath "\" A_LoopField)
  }
}
ExitApp


organizeThat(fullPath)
{
  reversefullPath := revtxt(fullPath)
  StringGetPos, pos, reversefullPath, .
 
  StringLeft, reversefullPath, reversefullPath, %pos%
  path_suffix := revtxt(reversefullPath)
  Loop, read, suffix.txt
  {
    StringSplit, zeile, A_LoopReadLine, = , %A_Space%%A_Tab%
    StringSplit, Array, zeile1, * , %A_Space%%A_Tab%
    Loop, %Array0%
    {
      suffix := Array%a_index%
      path_suffix := path_suffix
      If (suffix = path_suffix  OR  suffix = "else")
      {
        destination = %clipboard%%zeile2%
        IfNotExist, %destination%
   FileCreateDir, %destination%
        FileMove, %fullPath%, %destination%
      }
    }
  }
}