[Iska]

Код:

Option Explicit

Dim strFolder
Dim objFile
Dim lngCount


strFolder = "c:\1"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strFolder) Then
		lngCount = 0
		
		For Each objFile In .GetFolder(strFolder).Files
			If UCase(.GetExtensionName(objFile.Name)) = UCase("ini") Then
				lngCount = lngCount + 1
			End If
		Next
		
		WScript.Echo "Found [" & CStr(lngCount) & "] ini files"
	Else
		WScript.Echo "Can't find folder [" & strFolder & "]"
	End If
End With

WScript.Quit 0

[XXXp]

Спасибо, только очень медленно делает, подсчет 709 ини файлов занял минут 5 при 100% загрузке процессора! Нет ли более скоростного метода? Спасибо за помощь

[Iska]

XXXp, сколько у Вас всего файлов в «c:\1»?

[XXXp]

в одной папке порядка 50 - он посчитал в течение нескольких секунд. В другой - 709, с этой папкой возникли проблемы - компьютер минут 5 грузился, ЦП был загружен на 100%, в конце (минут через 4-5), он выдал сообщение, что файлов 709...

[Iska]

XXXp, всего файлов. Не «ini», а всего файлов в папке?

[XXXp]

Примерно 1400

[Iska]

XXXp, ну, на таком количестве не должно тормозить. Если бы несколько миллионов файлов в каталоге, да и то, не должно быть так…

А если перезагрузить (!) машину и в командной строке выполнить для Вашей папки «c:\1»:

Код:

dir "c:\1\*.ini"

— сколько сие займёт времени?

[XXXp]

выполнил команду, выполнилось почти мгновенно (меньше секунды)

[Iska]

XXXp, а если теперь для той же папки «c:\1», опять же — после перезагрузки, попробовать выполнить скрипт?