[266903582]

tehnik_srs, вот способ узнать первую подпапку в указанной папке:

Код:

$tmp=""
$vvar=FileFindFirstFile("d:\work\*")
While 1
	$tmp=FileFindNextFile($vvar)
	if StringLeft(StringRight($tmp,4),1)<>"." And StringLeft(StringRight($tmp,5),1)<>"." And $tmp<>"" Then ExitLoop
WEnd
ConsoleWrite($tmp&@cr)