[Файловая система] Перебор каталогов

#Include <File.au3>
#Include <Array.au3>

$sPath = @HomeDrive & "\Documents and Settings"
$aUsers = _FileListToArray($sPath, "*", 2)
_ArrayDisplay($aUsers)

#include <file.au3>
#include <array.au3>
$path = 'c:\Documents and Settings'
$s = ''
_FolderLister($path)
$a = StringSplit(StringStripCR($s), @LF)
_ArrayDisplay($a)
Func _FolderLister($spath)
	$aFolders = _FileListToArray($spath, '*', 2)
	If Not IsArray($aFolders) Then return 0
	For $i = 1 to $aFolders[0]
		$s &= $aFolders[$i] & @CRLF
		_FolderLister($spath & '\' & $aFolders[$i])
	Next
EndFunc

Exit ; пример не для запуска
$bykvadicka081=StringMid(GUICtrlRead ($bykvadicka80), 1,2)
$aFolderDAS = _FileListToArrayEx($bykvadicka081 & '\Documents and Settings', "", 2, 0)

$x1='-'
$x2='-'
$x3='-'
$x4='-'
$x5='-'

$z=1
For $i=2 To $aFolderDAS[0]
	$x=$i-$z
   $aNameUser=StringRegExp($aFolderDAS[$i], "(^.*)\\(.*)$", 3)
	If StringRegExp($aNameUser[1], "All Users|Default User|LocalService|NetworkService", 0)=0 and FileExists($bykvadicka081 & '\Documents and Settings\'&$aNameUser[1]&'\NTUSER.DAT') Then
	   Assign('x' & $x, $aNameUser[1])
	else
	   $z+=1
	EndIf
Next
GUICtrlSendMsg($username, 0x14B, 0, 0)
GUICtrlSetData($username,'текущий|'&$x1&'|'&$x2&'|'&$x3&'|'&$x4&'|'&$x5, 'текущий')

#include <File.au3>
#include <Array.au3>

$sPath = @HomeDrive & "\Documents and Settings"
Dim $aUsers[1]
$aTemp = _FileListToArray($sPath, "*", 2)

For $i = 1 To UBound($aTemp) - 1
	If FileGetAttrib($sPath & "\" & $aTemp[$i]) = 'D' And $aTemp[$i] <> 'All Users' Then
		_ArrayAdd($aUsers, $aTemp[$i])
		$aUsers[0] += 1
	EndIf
Next
_ArrayDisplay($aUsers, "Папки юзеров")

#include <Array.au3>

$aUsers = _SystemGetUserProfiles()
_ArrayDisplay($aUsers)

Func _SystemGetUserProfiles()
	Local $aUsers[100], $colItems, $objWMIService, $objItem, $sDocsAndSettingsPath = StringRegExpReplace(@UserProfileDir, "\\[^\\]*$", "\\")
	Local Const $wbemFlagReturnImmediately = 0x10, $wbemFlagForwardOnly = 0x20
	
	$objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\CIMV2")
	$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
	
	If Not IsObj($colItems) Then
		Return SetError(1, 1, 0)
	EndIf
	
	For $objItem In $colItems
		If FileExists($sDocsAndSettingsPath & $objItem.Name & "\NTUSER.DAT") Then
			$aUsers[0] += 1
			$aUsers[$aUsers[0]] = $sDocsAndSettingsPath & $objItem.Name
		EndIf
	Next
	
	ReDim $aUsers[$aUsers[0]+1]
	Return $aUsers
EndFunc

#include <Array.au3>

$aUsers = _SystemGetUserProfiles(0)
_ArrayDisplay($aUsers)

Func _SystemGetUserProfiles($iRetSysProfiles = 0)
	Local $aUsers[100], $sKey, $iInstance, $sUserPath, $sRegPath = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"
	Local $iOpt_EES = Opt("ExpandEnvStrings", 1)
    
	While 1
		$iInstance += 1
		$sKey = RegEnumKey($sRegPath, $iInstance)
		
		If @error <> 0 Then
			ExitLoop
		EndIf
		
		$sUserPath = RegRead($sRegPath & "\" & $sKey, "ProfileImagePath")
		
		If (($iRetSysProfiles = 0 And Not StringInStr(FileGetAttrib($sUserPath), "S")) Or $iRetSysProfiles = 1) And FileExists($sUserPath & "\NTUSER.DAT") Then
            $aUsers[0] += 1
            $aUsers[$aUsers[0]] = $sUserPath
        EndIf
	WEnd
    
	Opt("ExpandEnvStrings", $iOpt_EES)
	
    ReDim $aUsers[$aUsers[0]+1]
    Return $aUsers
EndFunc