AHK: Расстановка навигации в HTML-файлах

D:\ss2\первый-файл-каталога.htm
D:\ss2\второй-файл-каталога.htm
D:\ss2\третий-файл-каталога.htm
D:\ss2\четвертый-файл-каталога.htm
D:\ss2\пятый-файл-каталога.htm
D:\ss2\шестой-файл-каталога.htm

FileAppend, второй-файл-каталога.htm, D:\ss2\первый-файл-каталога.htm
FileAppend, третий-файл-каталога.htm, D:\ss2\второй-файл-каталога.htm
FileAppend, четвертый-файл-каталога.htm, D:\ss2\третий-файл-каталога.htm
FileAppend, пятый-файл-каталога.htm, D:\ss2\четвертый-файл-каталога.htm
FileAppend, шестой-файл-каталога.htm, D:\ss2\пятый-файл-каталога.htm

а у шестого файла нет следующего и поэтому он пропускается

file2 := D:\ss2\первый-файл-каталога.htm
file3 := "D:\ss2\второй-файл-каталога.htm"
file4 := "D:\ss2\третий-файл-каталога.htm"
file5 := "D:\ss2\четвертый-файл-каталога.htm"
file6 := "D:\ss2\пятый-файл-каталога.htm"

^vk51::     ;CTRL + Q для запуска в каталоге с HTM-файлами
   gosub, GetExplPath

   Loop, %File_Path%\*.htm , 0, 1
   {
      list1 .= A_LoopFileLongPath "`n"
   }
   list1=%list1%
   list2=%list1%
   StringReplace, list1, list1, `n, `|`n, All
   StringReplace, list2, list2, `n, ###`n, All
   all = %list1%%list2%
   Sort, all
   all := RegExReplace(all, "U)(^.*\R)")                   ; удал перв строку
   all := RegExReplace(all, "m`a)^.*\\(.*)###(`n)|^\R", "FileAppend, $1$2") ; отрез пути
   StringReplace, all, all, `|`n, `|, All
   StringReplace, all, all, `,, ```,, All
   all := RegExReplace(all, "m`a)^(.*)\|(.*)", "$2, $1") ; отрез пути
   all := RegExReplace(all, "(`n`, \w:.*$)", "`n")       ; удал послед строку

   msgbox % all
list1 =
list2 =
all =
return



GetExplPath:
    File_Path := GetExplorerPath()
Return
GetExplorerPath() {
  hWnd := WinExist("A")
  WinGetClass wClass, ahk_id %hWnd%
    currentDir := GetWindowsExplorerPath(hWnd)     ;Explorer_GetPath()
  Return %currentDir%
}

GetWindowsExplorerPath(_hWnd) 
{ 
   local pid, hMem, pv, pidl, pidl_, explorerPath 
   If (A_OSType = "WIN32_NT") 
   { 
      pid := DllCall("GetCurrentProcessId") 
      SendMessage 0x400 + 12, pid, 0,, ahk_id %_hWnd% 
      hMem := ErrorLevel 
      if (hMem != 0) 
      { 
         pv := DllCall("Shell32\SHLockShared", "UInt", hMem, "UInt", pid) 
         if (pv != 0) 
         { 
            pidl := DllCall("Shell32\ILClone", "UInt", pv) 
            DllCall("Shell32\SHUnlockShared", "UInt", pv) 
         } 
         DllCall("Shell32\SHFreeShared", "UInt", hMem, "UInt", pid) 
      } 
   } 
   Else ; Win9x 
   { 
      SendMessage 0x400 + 12, 0, 0, , ahk_id %_hWnd% 
      pidl_ := ErrorLevel 
      if (pidl_ != 0) 
      { 
         pidl := DllCall("Shell32\ILClone", "UInt", pidl_) 
         DllCall("Shell32\ILGlobalFree", "UInt", pidl_) 
      } 
   } 
   VarSetCapacity(explorerPath, 512, 0) 
   DllCall("Shell32\SHGetPathFromIDList" (A_IsUnicode ?"W":"A"), "UInt", pidl, "Str", explorerPath) 
   Return explorerPath 
}
Return

D:\dir\001.htm
D:\dir\002.htm
D:\dir\003.htm
D:\dir\004.htm
D:\dir\005.htm
D:\dir\006.htm

D:\dir\sub\001.htm
D:\dir\sub\002.htm
D:\dir\sub\003.htm
D:\dir\sub\004.htm
D:\dir\sub\005.htm
D:\dir\sub\006.htm

FileAppend, 002.htm, D:\dir\001.htm
FileAppend, 003.htm, D:\dir\002.htm
FileAppend, 004.htm, D:\dir\003.htm
FileAppend, 005.htm, D:\dir\004.htm
FileAppend, 006.htm, D:\dir\005.htm
FileAppend, 007.htm, D:\dir\006.htm
FileAppend, 002.htm, D:\dir\sub\001.htm
FileAppend, 003.htm, D:\dir\sub\002.htm
FileAppend, 004.htm, D:\dir\sub\003.htm
FileAppend, 005.htm, D:\dir\sub\004.htm
FileAppend, 006.htm, D:\dir\sub\005.htm
FileAppend, 007.htm, D:\dir\sub\006.htm

#SingleInstance Force

^vk51::     ;CTRL + Q для запуска в каталоге (БЕЗ ПОДКАТАЛОГОВ) с HTM-файлами
   File_Path := GetActiveFolderPath()

   FileDelete, %a_desktop%\HTM_NAV.AHK

   Loop, %File_Path%\*.htm*
   {
      list1 .= A_LoopFileLongPath "`n"
   }
   back1=%list1%
   back2=%list1%
   next1=%list1%
   next2=%list1%

;==========================================================================
   StringReplace, back1, back1, `n, :::`n, All
   allback = %back1%%back2%
   Sort, allback
   allback := RegExReplace(allback, "U)(^.*\R)")                     ; удал перв строку
   StringReplace, allback, allback, `,, ```,, All
   StringReplace, allback, allback, `%, ```%, All
   allback := RegExReplace(allback, "m`a)^.*\\(.*):::(`n)|^\R", "FileAppend, <table  border=""0"" cellspacing=""0"" cellpadding=""1"" width=""100```%"" align=""center""><tr>``r``n<td align=""left""><a href=""$1"" target=""_self"">&larr;</a></td>``r``n`, ")   ; отрез пути
   StringReplace, allback, allback, :::`n, `,%a_space%, All
   allback := RegExReplace(allback, "m`a).*?, $")                    ; удал послед строку

   FileAppend % allback, %a_desktop%\HTM_NAV.AHK, UTF-8
;==========================================================================

   StringReplace, next1, next1, `n, `|`n, All
   StringReplace, next2, next2, `n, :::`n, All
   allnext = %next1%%next2%
   Sort, allnext
   allnext := RegExReplace(allnext, "U)(^.*\R)")                   ; удал перв строку
   StringReplace, allnext, allnext, `,, ```,, All
   StringReplace, allnext, allnext, `%, ```%, All
   allnext := RegExReplace(allnext, "m`a)^.*\\(.*):::(`n)|^\R", "FileAppend, <td align=""right""><a href=""$1"" target=""_self"">&rarr;</a></td>``r``n</tr></table>``r``n$2") ; отрез пути
   StringReplace, allnext, allnext, `|`n, `|, All
   allnext := RegExReplace(allnext, "m`a)^(.*)\|(.*)", "$2, $1") ; отрез пути
   allnext := RegExReplace(allnext, "(`n`, \w:.*$)", "`n")       ; удал послед строку

   ;в первом файле перед первым next - чтобы открывалась таблица:
   allnext = :%allnext%
   StringReplace, allnext, allnext, :FileAppend`, <td align="right, FileAppend`, <table  border="0" cellspacing="0" cellpadding="1" width="100```%" align="center"><tr>``r``n<td align="right, All

   FileAppend % allnext, %a_desktop%\HTM_NAV.AHK, UTF-8
;==========================================================================

   sleep 1000
   Run, %a_desktop%\HTM_NAV.AHK

   list1 =
   back1 =
   back2 =
   allback =
   next1 =
   next2 =
   allnext =
return

GetActiveFolderPath()
{
   hActiveHwnd := WinExist("A")
   for item in ComObjCreate("Shell.Application").Windows
      if (hActiveHwnd = item.hwnd)
         Return item.Document.Folder.Self.Path
}