[266903582]

tehnik_srs, удовлетворяющее решение не соответствует заголовку темы.
А результата (список папок) можно добиться проще:

Код:

$tmp=""
$out=""
$vvar=FileFindFirstFile("d:\work\*")
While 1
	$tmp=FileFindNextFile($vvar)
	if @error Then ExitLoop
	if StringLeft(StringRight($tmp,4),1)<>"." And StringLeft(StringRight($tmp,5),1)<>"." And $tmp<>"" Then $out&=$tmp&@CR
WEnd
;~ ConsoleWrite($out)
MsgBox(0,"Список папок",$out)

Если же нужны папки с файлами, то достаточно убрать фильтрацию имен с расширениями и файлы войдут в список...