[Iska]

Пробуйте:

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

Код:

Option Explicit

Dim strFolder
Dim strMask

Dim objFSO
Dim objRegExp
Dim objFile

Dim boolFound


strFolder = "D:\folder"
strMask   = "^.*001\.zip$"


Set objFSO    = WScript.CreateObject("Scripting.FileSystemObject")
Set objRegExp = WScript.CreateObject("VBScript.RegExp")

With objRegExp
	.Pattern = strMask
	.IgnoreCase = True
End With

If objFSO.FolderExists(strFolder) Then
	boolFound = False
	
	For Each objFile In objFSO.GetFolder(strFolder).Files
		If objRegExp.Test(objFile.Name) Then
			WScript.Echo objFile.Name
			
			boolFound = True
		End If
	Next
	
	If boolFound Then
		WScript.Echo "One or more files found."
	Else
		WScript.Echo "Nothing found."
	End If
Else
	WScript.Echo "Folder [" & strFolder & "] not found."
	WScript.Quit 1
End If

Set objRegExp = Nothing
Set objFSO    = Nothing

WScript.Quit 0