; Скрипт показывает имена всех файлов в текущей директории.
$hSearch = FileFindFirstFile("E:\test\*.exe") ; возвращает дескриптор поиска
; Проверка, является ли поиск успешным
If $hSearch = -1 Then
MsgBox(4096, "Ошибка", "Ни один из файлов или каталогов не соответствует маске поиска")
Exit
EndIf
While 1
$sFile = FileFindNextFile($hSearch) ; возвращает имя следующего файла, начиная от первого до последнего
If @error Then
ExitLoop
EndIf
MsgBox(1,$sFile,"следующий по списку файл",5)
$sDir = StringLeft($sFile, StringInStr($sFile, ".", 0, -1) - 1)
;~ ConsoleWrite($sDir & @CRLF) ;
if $sFile = @ScriptName Then
MsgBox(1,$sFile,"Имя файла как у скрипта не запускаем",5)
ContinueLoop
Else
ShellExecuteWait(@ScriptDir & '\' & $sFile)
EndIf
WEnd
; Закрывает дескриптор поиска
FileClose($hSearch)