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.