1
Bu yüzden bir klasörü açmak için bu kodu vardır: Genellikle çalışır ancakSıkıştırılmış dosya
' 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
her şimdi ve sonra bir şekilde böcek ve aşağı ileri hataya neden oluyor tüm dosyaları ayıklamak değil seçerse benim kodum Bu nedenle 7zip programını kullanarak çıkarmak istiyorum.
Bunu koduma nasıl uygularım?
Garip bir şekilde [déjà vu] algısı alıyorum (https://en.wikipedia.org/wiki/D%C3%A9j%C3%A0_vu) Bu soru ile, daha önce buna benzer bir şey sormadığınıza emin misiniz?, kod örneği bile titizlik gösteriyor! – Lankymart
Benzer bir kod hakkında ama başka bir sorun hakkında sordum. Yolun isminin sinir bozucu olduğunu biliyorum ama tanımlamak için başka bir yol kullanmak gayet iyi olurdu. – Laizy