Ответ на пост «Архивируем все файлы внутри директории, исключая ненужные - архив с датой и временем в имени»1
Делал нечто подобное на vbs.
Архивирует всю папку рекурсивно и помещает архив в родительскую директорию.
' z0_foldr_2_arh.vbs
' trdm 2021-05-23 17:39:47
' Архивация текущей дирректории.
set gWsh = CreateObject("WScript.Shell")
set gFso = CreateObject("Scripting.FileSystemObject")
set gCurDir = gFso.GetFolder(gWsh.CurrentDirectory)
dim gCurDirSN : gCurDirSN = gCurDir.Name
set gParent = gCurDir.ParentFolder
Function FNS(psNum, psVN)
FNS = Right("00000000000000000"+CStr(psNum),psVN)
End Function
Function formatDT(psDate)
vStr = ""+CStr(Year(psDate))
vStr = vStr + FNS(Month(psDate),2)
vStr = vStr + FNS(Day(psDate),2)
vStr = vStr + "_"
vStr = vStr + FNS(Hour(psDate),2)
vStr = vStr + FNS(Minute(psDate),2)
vStr = vStr + FNS(Second(psDate),2)
formatDT = vStr
End Function
Sub runArhive()
vFileName = gCurDirSN + "_"+formatDT(Now)+".7z"
gWsh.CurrentDirectory = gParent.Path 'msgbox vFileName 'msgbox gWsh.CurrentDirectory
vCommand = "7z a "+vFileName+" .\"+gCurDirSN+"\* -r" ' msgbox vCommand
gWsh.Exec vCommand 'msgbox gCurDirSN 'gParent.Path
End Sub
runArhive



















