; Скрипт показывает имена всех файлов и каталогов в указанной директории.
$sPath = @HomeDrive
$hSearch = FileFindFirstFile($sPath & '\*.*') ; возвращает дескриптор поиска, определяющий путь и маску

; Проверка, является ли поиск успешным
If $hSearch = -1 Then
	MsgBox(4096, "Ошибка", "Ни один из файлов или каталогов не соответствует маске поиска")
	Exit
EndIf

While 1
	$sFile = FileFindNextFile($hSearch) ; возвращает имя следующего файла, начиная от первого до последнего
	If @error Then ExitLoop
	If @extended Then
		$sType = 'Каталог: '
	Else
		$sType = 'Файл: '
	EndIf

	$iAnswer = MsgBox(1, 'Следующий элемент', $sType & @TAB & $sFile & @LF & 'Путь: ' & @TAB & $sPath & '\' & $sFile)
	If $iAnswer = 2 Then ExitLoop
WEnd

; Закрывает дескриптор поиска
FileClose($hSearch)