[Iska]

Код:

Option Explicit

Dim strSourceFolder
Dim arr10To36

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", ";")

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
						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
						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

[bombording]

Iska, Почему то скрипт упорно хочет найти file010.sd - которого быть не может т.к. после file009.sd идет файл file00a.sd

[Iska]

Iska, Почему то скрипт упорно хочет найти file010.sd - которого быть не может т.к. после file009.sd идет файл file00a.sd »

В Вашем примере файл «file010.sd» есть. В скрипте его наличие проверяется после проверки существования «file00z.sd». Для примера добавим вывод:

Код:

Option Explicit

Dim strSourceFolder
Dim arr10To36

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", ";")

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
						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
							WScript.Echo "Find file [" & strFileName & "]."
						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

А у Вас?

[bombording]

Iska, Вы правы. Просто я для теста скрипта скопировал половину файлов.

В таком случае как узнать, какой файл последний и прекратить выполнение скрипта на нём? Ведь файлов каждый раз может быть разное количество. Список может кончаться например и на file02b.sd и на file04s.sd или на другом имени.

[Iska]

В таком случае как узнать, какой файл последний и прекратить выполнение скрипта на нём? Ведь файлов каждый раз может быть разное количество. Список может кончаться например и на file02b.sd и на file04s.sd или на другом имени. »

Это входит в явное противоречие с:

Проверять все файлы в папке на последовательность. И в случае нарушения последовательности, выдавать ошибку. »

Надо полагать, теперь условие такое — «перечислить все отсутствующие файлы между первым и последним в алфавитном порядке», так? Я уже как-то делал здесь такое. Осталось найти среди всех своих сообщений .

[bombording]

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

[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
'=============================================================================

[bombording]

Iska, Работает! Но честно говоря не до конца понимаю как функция ExistLastName определяет что файл последний? За счет Step -1 ??

[Iska]

Угу. Тремя вложенными циклами генерирует имена файлов с конца (т.е., с «filezzz.sd») и проверяет их существование. Как только будет найден существующий файл — происходит выход из функции. Поскольку переменные «x», «y» и «z» передаются в параметры функции по ссылке, то значения этих переменных (а не их копий в случае передаче по значению) могут быть изменены внутри функции. Посему после выхода из функции мы имеем в переменных «x», «y» и «z» 36-тиричные цифробуквы, однозначно определяющие последний существующий файл в алфавитном порядке.