AutoHotkey Community

FileSelectFolder, FolderName, , 3, Folder Contents - Choose a folder
if FolderName =
   MsgBox, You didn't choose a folder.
else
  {
  SplitPath,A_LoopFileLongPath,FileNameNoExt ;Extract Directory,filename, and extension
 
 
    WordList =
    Loop, %FolderName%\*.*, 0, 0
        WordList = %WordList%%A_LoopFileName%`n

    SplitPath, FolderName, OutFileName
    FileName = C:\Documents and Settings\All Users\Desktop\%OutFileName%.txt

    FileAppend, %WordList%, %FileName%
   
   
   FileRead, Contents, %FileName%
   if not ErrorLevel  ; Successfully loaded.
{
    Sort, Contents
    FileDelete, %FileName%
    FileAppend, %Contents%, %FileName%
    Contents =  ; Free the memory.
}
   
   
    run, Notepad %FileName%
  }

FileSelectFolder, FolderName, , 3, Folder Contents - Choose a folder
if FolderName =
   MsgBox, You didn't choose a folder.
else
  {
 
    Loop, %FolderName%\*.*, 0, 0
        WordList = %WordList%%A_LoopFileName%`n

    SplitPath, FolderName, OutFileName
    FileName = C:\Documents and Settings\All Users\Desktop\%OutFileName%.txt
   
   
    FileAppend, %WordList%, %FileName%.new
   
   Loop, Read, %FileName%.new, %FileName%.tem
  {
  StringTrimRight, trimExt, A_LoopReadLine, 4
      FileAppend, %trimExt%`n
  }
   FileMove, %FileName%.tem, %FileName%, 1
   
         
   FileRead, Contents, %FileName%
   if not ErrorLevel  ; Successfully loaded.
{
    Sort, Contents
    FileDelete, %FileName%
    FileAppend, %Contents%, %FileName%
    Contents =  ; Free the memory.
}
   
   
    run, Notepad %FileName%
  }