1
Так у меня есть этот код, чтобы распаковать папку:Распакуйте файл, используя 7zip VBScript
' Create folder to exctract from, and location of zip file
ExtractTo="\\se-st-file01\" & Right("0" & Year(Date),2) & Right("0" & Month(Date),2) & Right("0" & Day(Date),2) & "\"
Zipfile= "\\se-st-file01\" & Right("0" & Year(Date),2) & Right("0" & Month(Date),2) & Right("0" & Day(Date),2) & "\"& Year(Date) & Right("0" & Month(Date),2) & Right("0" & Day(Date),2) & "file to unzip" & ".Zip"
' Create object for zip file then extract items to set folder above
Set objShell = CreateObject("Shell.Application")
Set FilesinZip=objShell.NameSpace(Zipfile).items
ObjShell.NameSpace(ExtractTo).CopyHere(FilesInZip), &h100
Это обычно работает, но каждый сейчас и потом ошибки как-то и выбирает не извлечет все файлы, вызывает ошибку ниже в мой код. Поэтому я хотел бы извлечь из нее программу 7zip.
Как бы это реализовать в моем коде?
Странно, мне кажется, что [déjà vu] (https://en.wikipedia.org/wiki/D%C3%A9j%C3%A0_vu) с этим вопросом, вы уверены, что раньше не задавали что-то подобное ?, даже образец кода дает мне дрожь! – Lankymart
Я спросил об аналогичном коде, но с другой проблемой. Я знаю, что имя пути раздражает, но использование другого пути для описания будет просто замечательным. – Laizy