Поиск папок и построчная запись их имен в ini-файл.

[Rimm]

Пытаюсь написать скрипт проверки папки Program Files и записи в ini-файл всех имен найденных папок. Проблема: как правильно задать цикл, чтобы при обнаружении следующей папки в ini-файле срабатывал @CRLF и имя папки записывалось на новой строке?

$search = FileFindFirstFile(@ProgramFilesDir & "\*.*")
While 1
    $file = FileFindNextFile($search) 
    If @error Then Exit
    IniWrite(@ScriptDir & "\info.ini", "Программы", "Program_Files", $file)
WEnd

Заранее благодарен!

 

[Khaibit]

Вы записываете имена всех папок в один и тот же параметр ("Program_Files")
Вот так например:

$search = FileFindFirstFile(@ProgramFilesDir & "\*.*")
$i = 1
While 1
    $file = FileFindNextFile($search)
    If @error Then Exit
    IniWrite(@ScriptDir & "\info.ini", "Program_Files", $i, $file)
	$i+=1
WEnd
FileClose($search)

 

[Zaramot]

Можно так:

#include <File.au3>

$Folders = _FileListToArray(@ProgramFilesDir, "*", 2)

For $i = 1 To $Folders[0]
	IniWrite(@ScriptDir & '\List.ini', 'Programs', $i, $Folders[$i])
Next