[Iska]

Я уже как-то делал здесь такое. Осталось найти среди всех своих сообщений . »

Бесполезно разгребать эти авгиевы конюшни.

Iska, Быть может будет проще, посчитать общее количество файлов типа file*.sd и закончить цикл на шаге равном количеству файлов? »

Имеется ряд проблем при реализации такого подхода. «Мы пойдём другим путём».

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

Код:

Option Explicit

Dim strSourceFolder
Dim arr10To36

Dim objFSO

Dim x, y, z
Dim i, j, k
Dim strFileName


strSourceFolder = "E:\Песочница\0338"
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", ";")

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strSourceFolder) Then
	If ExistLastName(x, y, z) Then
		For i = 0 To x
			For j = 0 To y
				For k = 0 To z
					If i = 0 And j = 0 And k = 0 Then
					Else
						strFileName = "file" & arr10To36(i) & arr10To36(j) & arr10To36(k) & ".sd"
						
						If Not objFSO.FileExists(objFSO.BuildPath(strSourceFolder, strFileName)) Then
							WScript.Echo "Can't find file [" & strFileName & "]."
						End If
					End If
				Next
			Next
		Next
	End If
Else
	WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0
'=============================================================================

'=============================================================================
Function ExistLastName(ByRef x, ByRef y, ByRef z)
	ExistLastName = False
	
	For x = 35 To 0 Step -1
		For y = 35 To 0 Step -1
			For z = 35 To 0 Step -1
				If x = 0 And y = 0 And z = 0 Then
				Else
					strFileName = "file" & arr10To36(x) & arr10To36(y) & arr10To36(z) & ".sd"
					
					If objFSO.FileExists(objFSO.BuildPath(strSourceFolder, strFileName)) Then
						ExistLastName = True
						
						Exit Function
					End If
				End If
			Next
		Next
	Next
End Function
'=============================================================================