Soru Klasördeki Dosyalar ve Winrar İşlemleri

[TURKOLOG]

Herkese Merhaba
Topluca bir klasördeki winrarları aynı klasöre ayrı ayrı çıkaran
Klasördeki word-excel ve diğer dosya türlerini ayrı ayrı winrar yapan kod dosyası lazım
Yardım edebilecek olan var mı?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Klasor_Altindaki_Dosyalari_Winrardan_Cikart()
    Dim Yol As String, Dosya As String, Hedef As String
    Dim WinRar_Yolu As String, Cikartilan_Dosya As Variant

    WinRar_Yolu = "C:\Program Files\WinRar\"
    
    Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Klasör\"
    Hedef = Yol
    
    Dosya = Dir(Yol & "*.rar")
    
    While Dosya <> ""
        Cikartilan_Dosya = Shell(Chr(34) & WinRar_Yolu & "WinRar.exe" & Chr(34) & " e " & _
                           Chr(34) & Dosya & Chr(34) & " " & Chr(34) & Hedef & Chr(34), vbNormalFocus)
        Dosya = Dir
    Wend

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[TURKOLOG]

Sayın @Korhan Ayhan paylastiginiz için teşekkür ederim . Küçük bir ricam olsa. Program winrardan çıkaracağı dosyaların yolunu Veri sayfasının A1 hücresinden, Nereye winrarsiz çıkaracağını A2 hücresinden çekse daha kullanışlı olmaz mı . Kodu bu şekilde revize edebilir misiniz.

 

[Korhan Ayhan]

Sanırım bu küçük düzeltmeyi sizde yapabilirsiniz.

En azından deneyiniz.

 

[TURKOLOG]

Sayın @Korhan Ayhan bi deneyeyim. Yapamazsam artık sizden yardım isterim artık

 

[TURKOLOG]

Deneyiniz.

Option Explicit

Sub Klasor_Altindaki_Dosyalari_Winrardan_Cikart()
    Dim Yol As String, Dosya As String, Hedef As String
    Dim WinRar_Yolu As String, Cikartilan_Dosya As Variant

    WinRar_Yolu = "C:\Program Files\WinRar\"
   
    Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Klasör\"
    Hedef = Yol
   
    Dosya = Dir(Yol & "*.rar")
   
    While Dosya <> ""
        Cikartilan_Dosya = Shell(Chr(34) & WinRar_Yolu & "WinRar.exe" & Chr(34) & " e " & _
                           Chr(34) & Dosya & Chr(34) & " " & Chr(34) & Hedef & Chr(34), vbNormalFocus)
        Dosya = Dir
    Wend

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Sayın @Korhan Ayhan verdiğiniz kodu bir kaç gündür deniyorum. ama malesef sizin verdiğiniz kodu değiştirmeden kullanmama rağmen çalışmadı. Yardım etme imkanınız var mı acaba

 

[Korhan Ayhan]

Nerede hata veriyor?

 

[TURKOLOG]

Işlem tamam diyor. Ama winrardan çıkarma yapmıyor.

 

[Korhan Ayhan]

Ben denediğim bir sorun yaşamamıştım.

Uyguladığınız klasörü ekleyin test edelim.

 

[TURKOLOG]

Ben denediğim bir sorun yaşamamıştım.

Uyguladığınız klasörü ekleyin test edelim.

@Korhan Ayhan Bey dosya iş yerimdeki bilgisayarda . Pazartesi günü buraya ekleyeyim.