zipi buraya çıkart

[baknediycem]

makroya ya da butona bastıgımızda C:\MUHASEBE de bulunan not.zip adlı zipin içindeki belgeyi aynı klasöre çıkarsın.
yardım edebilirseniz sevinirim.

 

[baknediycem]

?

 

[baknediycem]

rica etsem yardım eder misiniz?

 

[Zeki Gürsoy]

Merhaba,

Şunu deneyin..

Sub Exract()
rar = "C:\Program Files\WinRAR\rar.exe"
yol = "C:\MUHASEBE\"
dosya = yol & "not.zip"
[COLOR=DarkGreen]'dosya ve klasör ismindeki boşluklara duyarlıdır.
'bu nedenle chr(34) ile çift tırnak içine alırız.[/COLOR]
[COLOR=DarkGreen]'rar E <kaynak_zip> <içindeki_dosyalar> <hedef_klasör>[/COLOR]
q = Chr(34) & dosya & Chr(34) & " " & "*.*" & " " & Chr(34) & yol & Chr(34)

Shell rar & " E " & q
End Sub

 

[baknediycem]

Sn. Zeki Gürsoy, tesekkur ederim.
uygulamada basarılı olamadım. sorun nerden kaynaklanmış olabilir?

tırnak işaretleri aralarına yolları mı yazacagım, anlayamadım. yoksa boş mu kalacaklar?

C:\MUHASEBE\ içinde bulunan not.zip i C:\MUHASEBE\ ye cıkarsın istiyorum. ama olmadı. birkaç değişiklik yaptım, çalışmadı bir türlü. hata da vermiyor ama anlamadım

bir de ayrıca , kodlar çalışır duruma gelince userformdaki bir commandbutton a atayarak, oradan çalıştırmak istiyorum. heralde ilk satırı değiştirirsem olur.

Private Sub CommandButton1_Click()
rar = "C:\Program Files\WinRAR\rar.exe"
yol = "C:\MUHASEBE\"
dosya = yol & "not.zip"
'dosya ve klasör ismindeki boşluklara duyarlıdır.
'bu nedenle chr(34) ile çift tırnak içine alırız.
'rar E <kaynak_zip> <içindeki_dosyalar> <hedef_klasör>
q = Chr(34) & dosya & Chr(34) & " " & "*.*" & " " & Chr(34) & yol & Chr(34)
Shell rar & " E " & q
End Sub

 

[baydeniro]

Selamlar. Shell rar & " F " & q aşamasında hata verdi !!

 

[baknediycem]

arkadaslar yardım edecek kimse yok mu?
c:\muhasebe içindeki not.zip in içinde bulunan ogrenci.exe yi c:\muhasebe ye cıkarmak istiyorum. lütfen bana yardım edin.
userformdaki comandbuttonla da olabilir. bir makro da olabilir.
benim için çok önemli bu konu, 1 aydır ugrasıyorum. lütfen yardım edin.

 

[baknediycem]

guncelleme

 

[Korhan Ayhan]

Selamlar,

Zeki beyin önerdiği kodu denedim ve problemsiz sonuç aldım. Sizde "winrar" programı yüklümü?

 

[baknediycem]

Sn. Korhan Ayhan, şimdi oldu. Çok tesekkur ederim. ben Zeki beyin
'dosya ve klasör ismindeki boşluklara duyarlıdır.
'bu nedenle chr(34) ile çift tırnak içine alırız.
'rar E <kaynak_zip> <içindeki_dosyalar> <hedef_klasör>
bilgilendirmelerini direktif olarak algılayıp, birşeyler karıstırmıs, kodları bozmusum. uyarınızdan sonra hiçbir satırda değişiklik yapmamam gerektiğini anladım. Teşekkür ederim.
Bilmemek ne kötü!
(bu arada vakte dikkatinizi çekerim