IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Visual Basic

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Visual Basic (https://www.ircforumlari.net/visual-basic/)

- - Visual Basic - Fonksiyonları Kullanarak Zipleme (https://www.ircforumlari.net/visual-basic/397179-visual-basic-fonksiyonlari-kullanarak-zipleme.html)

yoSun

13 Haziran 2011 23:01

Visual Basic - Fonksiyonları Kullanarak Zipleme

Winzip kurulu olmalı.

Kod:
Function winZipit(ByVal source As String, ByVal target As String, ByVal zip As Boolean)
zipIT = App.Path & "winzip32 -a"
unzipIT = App.Path & "winzip32 -e "

If zip = True Then
Shell (zipIT & target & source)
Else: Shell (unzipIT & target & source)
End If
End Function

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:09.