Dim zipPath As String = "DOSYA_YOLU"
Bunu fonksiyonun 4. satırındaki kodla değiştirin ama fonksiyonu amacından saptırırsınız ve tek dosya yolunu almasına neden olur, sanırım hazır bir kod kullanıyorsunuz buna ek olarak bir fonksiyon yazmalısınız.
anydesk atsam inceliyip yardım edebilirmisiniz hazır kodlar daha önceden yazılımış fakat indirmede süre zarfı uzadığından işlem iptale düşüyor yardımcı olursanız çok sevenirim