Цитата Lodoss:
Если папка пуста, вылетает ошибка »
|
Код:
#Include <File.au3>
$sFPath = @WindowsDir
$aFiles = _FileListToArray($sFPath, '*', 1)
$iFiles = 0
If IsArray($aFiles) Then $iFiles = $aFiles[0]
MsgBox(64, "Результат", 'В папке "'& $sFPath & '" найдено '& $iFiles &' файлов.')
Цитата Lodoss:
А если с подкаталогами ? Думаю тоже пригодится. »
|
тут много вариантов можно напридумать:
Код:
#Include <File.au3>
$sFPath = @WindowsDir
$iFiles = _FilesInFolder($sFPath)
MsgBox(64, "Результат", 'В папке "'& $sFPath & '" найдено '& $iFiles &' файлов.')
Func _FilesInFolder($sRoot)
Local $aFolders = _FileListToArray($sRoot,'*', 2)
Local $aFiles = _FileListToArray($sRoot,'*', 1), $iCount=0
If IsArray($aFolders) Then
For $i=1 To $aFolders[0]
$iCount+= _FilesInFolder($sRoot &"\"& $aFolders[$i])
Next
EndIf
If IsArray($aFiles) Then $iCount += $aFiles[0]
Return $iCount
EndFunc