Строй-bat

[Comador 200]

FANAT, вместо * указывай номер архива, в итоге у тебя в файле должно быть три строки.

[Comador 200]

Ребята нужна помощь. Есть огромное количество файлов с расширением *.xls, которые находятся в текущей папке, а так же в подпапках.

В наличие есть небольшой VBS-скрипт, который "пересохраняет" эти в файлы в *.xlsx

Set app = CreateObject("Excel.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
strPath = "."
strPath = "."
Set fld = fso.GetFolder(strPath)
For Each fil In fld.Files
    If Right(fil.Name, 3) = "xls" Then
        Set wbk = app.Workbooks.Open(fil)
            app.DisplayAlerts = False
            wbk.SaveAs fil & "x", 51
        wbk.Close False
    End If
Next
app.Quit

но он обрабатывает только файлы в корне папки. Что нужно подправить, чтобы он охватывал и подпапки?

P.S. запуск скрипт производится через батник.

Изменено 22 Апреля 2016 пользователем Comador