#include <Array.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$List1 = GUICtrlCreateList("", 16, 8, 321, 318)
For $i = 1 To 100 Step 1
_GUICtrlListBox_AddString($List1, 'Item ' & $i)
Next
GUISetState(@SW_SHOW)
_ListToFile($List1, @ScriptDir & '\List.txt')
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _ListToFile($hList, $sFilePath)
Local $sText
Local $hFile
For $i = 0 To (_GUICtrlListBox_GetCount($hList) - 1) Step 1
$sText &= _GUICtrlListBox_GetText($hList, $i) & @CRLF
Next
$hFile = FileOpen($sFilePath, $FO_OVERWRITE)
If $hFile = -1 Then
ConsoleWrite('ERROR: Failed to open "' & $sFilePath & '"' & @CRLF)
EndIf
FileWrite($hFile, $sText)
FileClose($hFile)
EndFunc