VBS/WSH/JS - Подсчет количества ini файлов в папке

[XXXp]

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

[XXXp]

XXXp, сожалею.



Вот результат исполнения несколько модифицированного скрипта:

читать дальше »

Код:

Код: Выделить всё

Option Explicit
Dim strFolder
Dim objFile
Dim lngCount
WScript.Echo Now()
With WScript.CreateObject("Scripting.FileSystemObject")
	strFolder = .GetSpecialFolder(1)
	If .FolderExists(strFolder) Then
		lngCount = 0
		WScript.Echo "Total [" & .GetFolder(strFolder).Files.Count & "] files"
		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.Echo Now()
WScript.Quit 0

для «%SystemRoot%\System32» у меня:


Цитата:





Код:

Код: Выделить всё

09.04.2012 21:09:41
Total [2345] files
Found [18] ini files
09.04.2012 21:09:45

На предмет поиска причин и анализа «тормозов» при исполнении скрипта стоит обратиться в профильный раздел данного форума в зависимости от Вашей версии Windows, описав проблему и приведя ссылку на данную тему. Скорее всего понадобятся логи, сделанные Process Monitor'ом в момент исполнения скрипта.

[XXXp]

Понял, спасибо за помощь!

[XXXp]

А если в командной строке все летает, может есть возможность сделать подобное на bat файле?

[XXXp]

Можно хоть в пакетном файле, хоть непосредственно в командной строке. Например:

Код: Выделить всё

(<nul set /p sValue=Found ini files: & (dir /b /a "%SystemRoot%\System32\*.ini"|find.exe /c /v ""))| msg.exe *"