[bombording]

Iska, может быть тогда действительно сделать на базе вашего первого варианта скрипта подсчет файлов по маске и условие по которому цикл будет прекращаться по истечению количества шагов равным количеству файлов ?

Я тут сделал данную проверку. Но к сожалению умения хватило только на подсчет файлов по расширению....а не по маске file*.sd

Код:

Option Explicit

Dim strSourceFolder
Dim arr10To36

Dim i, j, k
Dim strFileName

Dim fso,f1,s1,o,n

strSourceFolder = "D:\!Project\script"
arr10To36 = Split("0;1;2;3;4;5;6;7;8;9;a;b;c;d;e;f;g;h;i;j;k;l;m;n;o;p;q;r;s;t;u;v;w;x;y;z", ";")

' count files
o = 0
n = 0
Set fso = CreateObject("Scripting.FileSystemObject")
For Each f1 in fso.GetFolder(strSourceFolder).Files
If InStr(1,f1.name,".sd",0) Then 
	o = o + 1
End If
Next


With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strSourceFolder) Then
		For i = 0 To 35
			For j = 0 To 35
				For k = 0 To 35
					If i = 0 And j = 0 And k = 0 Then
					Else
						If n < o Then
							strFileName = "file" & arr10To36(i) & arr10To36(j) & arr10To36(k) & ".sd"
							
							If Not .FileExists(.BuildPath(strSourceFolder, strFileName)) Then
								WScript.Echo "Can't find file [" & strFileName & "]."
								WScript.Quit 2
							Else
								n = n + 1
							End If
						End If
					End If
				Next
			Next
		Next
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
		WScript.Quit 1
	End If
End With
WScript.Quit 0