Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Подсчет количества ini файлов в папке

Ответить
Настройки темы
VBS/WSH/JS - Подсчет количества ini файлов в папке

Пользователь


Сообщения: 103
Благодарности: 0

Профиль | Отправить PM | Цитировать


Подскажите пожалуйста код скрипта, который бы мог посчитать количество файлов *.ini в папке c:/1 и вывести эту информацию на экран любым видом!
спасибо большое!

Отправлено: 01:29, 08-04-2012

 

Пользователь


Сообщения: 103
Благодарности: 0

Профиль | Отправить PM | Цитировать


Также, как и в прошлый раз ожидание заняло порядка 4-5 минут...

Отправлено: 21:05, 09-04-2012 | #11



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


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'ом в момент исполнения скрипта.
Это сообщение посчитали полезным следующие участники:

Отправлено: 21:16, 09-04-2012 | #12


Пользователь


Сообщения: 103
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

Отправлено: 23:07, 09-04-2012 | #13


Пользователь


Сообщения: 103
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

Отправлено: 01:05, 10-04-2012 | #14


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Можно хоть в пакетном файле, хоть непосредственно в командной строке. Например:
Код: Выделить весь код
(<nul set /p sValue=Found ini files: & (dir /b /a "%SystemRoot%\System32\*.ini"|find.exe /c /v ""))| msg.exe *"

Последний раз редактировалось Iska, 10-04-2012 в 08:27. Причина: Убран затесавшийся сюда от отладки код


Отправлено: 02:06, 10-04-2012 | #15



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Подсчет количества ini файлов в папке

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
C/C++ - [решено] Подсчет количества строк в Си dionis12006 Программирование и базы данных 2 27-01-2011 15:57
CMD/BAT - Подсчет количества целых чисел в текстовом файле Hardip Скриптовые языки администрирования Windows 5 08-12-2010 14:49
2007 - Подсчет количества удовлетворяющего условию Volv Microsoft Office (Word, Excel, Outlook и т.д.) 2 23-11-2010 20:47
[решено] Подсчет количества папок BlaJes AutoIt 4 10-02-2009 21:37
Подсчет количества лицензий. Zergling Microsoft Windows NT/2000/2003 0 24-04-2007 14:57




 
Переход