fawor1t

В итоге сделал так,в одну строку по какой то причине set не срабатывает

set LTO=C:\start\test\test
set c=%LTO%\tag.txt
IF EXIST %LTO%\tag.txt (
setlocal enabledelayedexpansion
For /F "Delims=" %%I In (%LTO%\tag.txt) Do Set /a b=%%~I
call set /a b+=1
echo !b!> "%c%"
copy %c% D:\co
endlocal
)
if not exist %LTO% mkdir %LTO%
IF NOT EXIST %LTO%\tag.txt echo>%LTO%\tag.txt 1 >%LTO%\tag.txt

Пораскинул мозгами, прислушался к факту что пароли нечего хранить отдельно и сделал следующее на excel-vba

Dim sFolder
Dim Ofile

Sub Workbook_Open()
   sFolder = "С:\01\xls\"

Set oFSO = CreateObject("Scripting.FileSystemObject")

For Each Ofile In oFSO.GetFolder(sFolder).Files
  If UCase(oFSO.GetExtensionName(Ofile.Name)) = "XLS" Then
    ProcessFiles oFSO, Ofile
  End If
  
Next

Set oFSO = Nothing

End Sub
Sub ProcessFiles(FSO, File)

Dim excel

Workbooks.Open Filename:=Ofile
excel = ActiveCell.Cells(11, 1).Value

ActiveWorkbook.Close

Windows("start.xlsm").Activate
    Sheets("Пароли").Select
a = Range("A1:B10").Find(excel).Row
b = Range("A1:B10").Find(excel).Column


pass = Sheets("Пароли").Cells(a, b + 1).Value
mail = Sheets("Пароли").Cells(a, b + 2).Value

FolderName = "С:\01\zip\"
PathZipProgram = "C:\Program Files\7-Zip\"
smail = FolderName + mail + ".zip"

ShellStr = PathZipProgram & "7z.exe a -tzip -p" & pass & "" & " " & smail & " " & Ofile & ""

Shell ShellStr




End Sub