[Файловая система] Как сделать подсчёт количества файлов в директории?

[akoulev]

Поиск по форуму приемлемого результата не принёс: всё очень уж тяжеловесное; а мне бы просто подсчёт количества файлов в одной директории. Дальше я уже как-нибудь сам... Ай нид хелп, плиз!

Hint: Упрощать сложнее, чем усложнять. Как оказалось. ;D

 

[madmasles]

akoulev
Можно так попробовать:

#include <File.au3>

$aFiles = _FileListToArray(@ScriptDir, '*', 1)
If IsArray($aFiles) Then
	MsgBox(0, '', 'В папке' & @LF & '"' & @ScriptDir & '"' & @LF & $aFiles[0] & ' файлов.')
Else
	MsgBox(0, 'Error', 'В папке' & @LF & '"' & @ScriptDir & '"' & @LF & 'нет файлов.')
EndIf

Считает без файлов во вложенных директориях, можно по маске считать.

 

[SyDr]

$x = DirGetSize("path" , 1)
MsgBox(Default, "", $x[1])

 

[madmasles]

SyDr
У Вас ошибка закралась в

MsgBox(Default, Default, "", $x[1])
MsgBox(Default, Default, $x[1])

 

[SyDr]

А. Точно. Я просто сразу в форму ответа писал

 

[akoulev]

Спасибо!
Для случая подсчёта txt-файлов и просмотра их имён:

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.4.0
 Author:         myName

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <File.au3>
$i=0
$aFiles = _FileListToArray(@ScriptDir, '*.txt', 1)
;$aFiles = _FileListToArray(@ScriptDir, '*', 1)
If IsArray($aFiles) Then
    MsgBox(0, '', 'В папке' & @LF & '"' & @ScriptDir & '"' & @LF & $aFiles[0] & ' файлов.')
Else
    MsgBox(0, 'Error', 'В папке' & @LF & '"' & @ScriptDir & '"' & @LF & 'нет файлов.')
EndIf

;MsgBox(0, '', 'В папке ' & $aFiles[0] & ' файлов.')

;#cs ----------------------------------------------------------------------------

;While $i<($aFiles[0]-1)
While $i<($aFiles[0])
	;MsgBox(0, 'Проход', $aFiles[0]-1 )
	;MsgBox(0, 'Проход', $i )
	;MsgBox(0, '', 'В папке' & @LF & '"' & @ScriptDir & '"' & @LF & $aFiles[0] & ' файлов.')
	;MsgBox(0, '', 'В папке' & @LF & @LF & $aFiles[$i+1] & ' - файл.')
	MsgBox(0, '', 'Проход ' & $i+1 & @LF & @LF & 'В папке файл:' & @LF & @LF & $aFiles[$i+1] & ' <=========<')
	$i=$i+1
WEnd
;#ce ----------------------------------------------------------------------------

 

[madmasles]

akoulev
По-моему, так проще:

#include <File.au3>

$sMask = '*.txt'
$aFiles = _FileListToArray(@ScriptDir, $sMask, 1)
If IsArray($aFiles) Then
    MsgBox(0, '', 'В папке' & @LF & '"' & @ScriptDir & '"' & @LF & $aFiles[0] & ' файлов ' & $sMask & '.')
Else
    MsgBox(0, 'Error', 'В папке' & @LF & '"' & @ScriptDir & '"' & @LF & 'нет файлов.')
EndIf
For $i = 1 To $aFiles[0]
    MsgBox(0, '', 'Проход ' & $i & @LF & @LF & 'В папке файл:' & @LF & @LF & $aFiles[$i] & ' <=========<')
Next

 

[akoulev]

В последний цикл строчку

$i=$i+1

добавить забыли.
Пардоньте - глупость я сказал! Так вот зачем механизм For-Next нужен! Автоприрощение $i - в отличие от While-Wend.