VBS/WSH/JS - Прошу помочь с проверкой корректности работы программы, по книгам все должно работать

[russv]

Добрый день!



Прошу помочь с проверкой корректности работы программы, по книгам все должно работать, но не работает.



Описание требований к программе. Есть две папки. В первую папку поступают файлы, их нужно скопировать во вторую, при этом нужно провести преобразование файла с помощью внешней программы (через командную строку) и итог перенести во вторую папку, исходный файл должен остаться без изменений.



Проблемы:

1. Программа не проверяет наличие временного файла, который надо удалить или не удаляет (так и не смог понять)

2. После первой конвертации программа вылетает с ошибкой, что не удается найти указанный файл или что отсутствует необходимый параметр (нет исходного файла, который будет преобразовываться), хотя имя файла получалось из этой же папки.



Option Explicit

Const pathepd = "C:\22\Ext\EPD" 'путь к исходным файлам выписок задается в виде константы

Const pathin = "C:\22\In" 'путь к измененным файлам выписок задается в виде константы

Const filetmp = "C:\22\Ext\EPD\tmpfile.xml" 'путь и имя временного файла

Const filetmpzzz = "C:\22\Ext\EPD\zzz.xml" 'путь и имя временного файла

Const filetmpzzz1 = "C:\22\In\1.xml"

Const pathepdtmp = "C:\22\Ext\EPD\"

Dim rebildxml, kolvofactual, nametmp, nametmp2, copyactual, tmpFile, fsotmp, copyactualtmp 'создание переменной для преобразования файла

Dim Text, fso, fso2, epdFile, epdFiles, epdFolder, epd, kolvofepd 'создание переменных для получения списка файлов

Dim inFolder, inFiles, inFile, maskFile, kolvofin, Text1, i, j

Dim epdFilemassiv(50) 'массив для записи имен файлов папки EPD

Dim inFilemassiv(50) 'массив для записи имен файлов папки Inf

kolvofactual = 0

Dim actualFilemassiv(50) 'массив для записи имен необработанных файлов папки EPD, не присутствующих в Inf

i = 0

j = 0

kolvofepd = 0

kolvofin = 0

nametmp = ""

nametmp2 = ""

Set epd = WScript.CreateObject("WScript.Shell")

Set fso = WScript.CreateObject("Scripting.FileSystemObject") 'создание объекта для получения доступа к ФС

Set epdFolder = fso.GetFolder(epd.ExpandEnvironmentStrings(pathepd)) 'получение объекта "Папка" EPD

Set inFolder = fso.GetFolder(epd.ExpandEnvironmentStrings(pathin)) 'получение объекта "Папка" Inf

Set rebildxml = WScript.CreateObject("WScript.Shell") 'преобразование xml

' получение списка файлов из папки EPD

If fso.FolderExists(pathepd) Then

' получение списка файлов из папки EPD и Inf

Set epdFiles = epdFolder.Files ' получение файлов

Set inFiles = inFolder.Files ' получение файлов

' запись в массивы "o"

For i=0 To 50

epdFilemassiv(i) = "o"

inFilemassiv(i) = "o"

Next



For Each epdFile In epdFiles 'получение количества файлов и запись имен файлов в epdFilemassiv

If fso.GetExtensionName(epdFile) = "xml" Then

epdFilemassiv(kolvofepd) = epdFile.Name

kolvofepd = kolvofepd + 1

End If

Next



For Each inFile In inFiles 'получение количества файлов и запись имен файлов в inFilemassiv

If fso.GetExtensionName(inFile) = "xml" Then

inFilemassiv(kolvofin) = inFile.Name

kolvofin = kolvofin + 1

End If

Next



If kolvofepd >= kolvofin Then ' если колво файлов в EPD больше или равно чем в In ищем уникальные имена

kolvofactual = kolvofepd - kolvofin 'получаем кол-во новых файлов

For i=0 To kolvofepd

For j=0 To kolvofin

If (epdFilemassiv(i) = inFilemassiv(j)) Then ' если имена в массивах одинаковые, обнуляем имена

epdFilemassiv(i) = "o"

inFilemassiv(j) = "o"

End If

Next

If (epdFilemassiv(i) "0") Then 'получаем уникальные не нулевые имена

If (epdFilemassiv(i) inFilemassiv(j)) Then

actualFilemassiv (i) = epdFilemassiv(i) ' "-" - между не нулевыми строками могут быть нулевые.

End If

End If

Next

End If



For i=0 To kolvofactual ' сортируем нулевые строки, чтобы они были в конце

If (actualFilemassiv (i) = "o") Then ' если строка нулевая, то на нулевую строку записываем следующую

actualFilemassiv (i) = actualFilemassiv (i+1)

actualFilemassiv (i+1) = "o"

copyactual = copyactual & pathepd &"\"& actualFilemassiv (i) & vbCrLf

MsgBox copyactual

End If

Next

MsgBox copyactual



'файл !_new.bat создает временный преобразованный файл, в "rebildxml" подается команда на преобразование. в этом блоке возникают ошибки

For i=0 To kolvofactual

copyactualtmp = pathepdtmp & actualFilemassiv (i) 'получение полного пути (путь до папки файла + название актуального файла)

'copyactual = copyactual & vbCrLf

MsgBox copyactualtmp

'Set tmpFile = fsotmp.GetFile(copyactual)

'tmpFile.Copy filetmp, true

If (fso.FileExists(copyactualtmp)) Then ' проверка наличия актуального файла (возможно проверка проходит некорректно)

If (fso.FileExists(filetmpzzz1)) Then ' проверка наличия временного преобразованного файла (возможно проверка проходит некорректно)

'Set tmpFile = fso.GetFile(filetmpzzz1)

fso.DeleteFile filetmpzzz1, true ' файл не удаляется (возможно проверка проходит некорректно)

End If

copyactual = "C:\11\!_new.bat " & copyactualtmp

MsgBox copyactual

rebildxml.Run(copyactual) ' корректно преобразуется только первый файл, на следующем вылетает с ошибкой

Set rebildxml = Nothing

'Set tmpFile = fsotmp.GetFile(filetmpzzz1)

' fso.DeleteFile filetmpzzz1, true ' файл не удаляется (при снятии комментария ругается)

End If



Next

Else

MsgBox "Ненайдена папка C:\22\Ext\EPD"

End If



Прошу помочь с проблемой. С уважением russv