Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Rar Dosyalarını Extrack Ettirmek
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Tüm Form Unload Olaylarında Onay Alma

Yazar: Huber
Programınız ister görev yöneticisinden kapansın ister form içinden kapasın yinede onay almadan kapanmayacaktır...


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 10506
Yayın Tar:11.07.2008
Yazar : ForumKusu
Hit :1930

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Merhaba! Bu makale winrar ile sıkıştırılmış bir dosyanın nasıl extrack edileceğini öğreneceğiz.

Öncelikle gerekli dosyaları aşağıdan indiriyoruz: (dosyaları projemiz ile aynı klasöre koyalım)

unrar.dll
UnRarOCX.ocx

Projemize referances'ten Microsoft Script Runtime ekliyoruz.Components kısmından unrarocx.ocx'i de ileva edelim.


Formumuza ekleyeceğimiz nesneler.

text1 (text1.text = boş)
List1
Command1 (caption = Git)
Option1
Option1 (projenize bir option nesnesi daha ekleyiniz ve ismini Option1 yapınız.) Sonuçta
şu şekilde olacaktır.
Option1(0) (Value özelliği true olsun) (Caption = Listele)
Optiob1(1) (Caption = Extrack Et)
ProgressBar1 (Components'ten Microsoft Windows Common Kontrols 6.0(SP6) 'yı eklemelisiniz.Nesne çubuğunda ProgressBar yerini alacaktır.)

Çalışmasını ayrıca anlatacağım.Şimdi kod kısmına geçiyoruz.

(General Declarations)

Dim fso As New FileSystemObject 'See references
Dim Foldr As String
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Option Explicit


Private Sub Command1_Click()
List1.Clear
If fso.FileExists(Text1.Text) = False Then
MsgBox "Dosya bulunamadi"
Exit Sub
End If
If Option1(0).Value = True Then
UnRar1.Lister Text1.Text
Else
UnRar1.Decompress Text1.Text, Foldr
End If
End Sub


Private Sub Option1_Click(Index As Integer)
If Index = 1 Then Foldr = InputBox("Lütfen dosyanın çıkartılacağı dizini gösteriniz :", , "c:\")
End Sub

Private Sub UnRar1_Progression(Pourcent As Integer)
ProgressBar1.Value = Pourcent
End Sub

Private Sub UnRar1_RarFileChange(FichierEnCours As UnRarOCX.RarFile)
List1.AddItem FichierEnCours.NomFichier
End Sub

Nesneleri eklediyseniz bu kodları projenize ekleyiniz ve projenizi çalıştırınız.

Text1'e projeniz ile aynı yerde bulunan rar dosyasının ismini yazınız.
Örneğin projeniz deneme isimli klasörde ise ve bu klasörün içinde test.rar isimli sıkıştırılmış dosya varsa Text1'e test.rar yazınız.Sonra git butonuna basarak test.rar'ın içerisindeki dosyaların list1'de listelenmesini sağlayınız.Bunun ardından Extrack Et option nesnesine tıklayarak çıkan menüden dosyayı extrack edeceğiniz yolu giriniz.Yolu gösterdiyseniz git butonuna tekrar basarak dosyayı o dizine extrack etmiş olacaksınız.

İyi çalışmalar.




Yorumlar, eklemeler ve düşünceler
        http://www.rarlab.com/rar_add.htm
Bu sayfadaki
http://www.rarlab.com/rar/UnRarOCX.rar
bu dosyayı indirin içinde VB6 örneği de hazır. Benim gibi saatlerce aramamış olursunuz.

   Karamuhlis, 19.11.2016 11:13
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin