AutoHotkey Community

total = 0
Loop, %a_scriptdir%\*.bmp
{
        total += 1
}

Random, select, 1, %total%

Loop, %a_scriptdir%\*.bmp
{
        IfEqual, A_Index, %select%, Setenv, file, %A_LoopFileFullPath%
}

msgbox, %file%

NumberOfNames = 3          ;Number of names to choose
InputFile     = Names.txt  ;Name of the file where names are stored
OutputFile    = Chosen.txt ;Name of the file where chosen names are stored

; This loop finds out how many names are in the file,
; if you don't need to do this, just replace this whole
; section with:
; TotalNames = # of names
Loop
{
 FileReadLine, TestSize, %InputFile%, %A_Index%
 If ErrorLevel
 {
  TotalNames := A_Index-1
  break
 }
}

; Chooses the names, and writes them to %OutputFile%
UsedNames =
Loop, %NumberOfNames%
{
 StringSplit, UsedNames, UsedNames, |
 Loop
 {
  LineNum =
  NewName =
  Random, LineNum, 1, %TotalNames%
  FileReadLine, NewName, %InputFile%, %LineNum%
  Loop, %UsedNames0%
  {
   If (UsedNames%A_Index% = NewName)
    Continue
  }
  Break
 }
 UsedNames = %UsedNames%|%NewName%
 FileAppend, %NewName%, %OutputFile%
}

files = `;
Loop, *.ahk
{
   files = %files%%A_LoopFileFullPath%;
   total = %A_Index%
}
Random, r, 1, total
StringGetPos, p, files, `;, L%r%
StringMid, file, files, p += 2, InStr(files, ";", "", p) - p
MsgBox, %file%