[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