ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[yurttutan]

Hocam meraba benim istediğim kısaca şöyle
Buradan sizin sitede daha önceleri açılmış konulardan winrar açma makrosunu alarak kendime uyarladım ama.
Fakat burada ben seçersem dosya açıp içindekini çıkarıyor.

benim istediğim

1-hepsini otomatik seçip dışarı çıkartsın
2- dosyalar dışarı çıktıktan sonra ise zip li yada winrarlı dosyaları silsin

hocam yardımlarınızı bekliyorum

[Tarkan VURAL]

Merhaba,
Aşağıdaki kodu dener misiniz ? Dizin isimlerini değiştirmeniz gerekecek.

UYARI

RAR dosyalarınızın yedeğini alın ya da bu kodları yedek bir dizin üzerinde çalıştırın. Yahut da Kill satırını kaldırın, çünkü rar dosyalarınızı silecektir.

Kod: Tümünü seç

Sub WinrarDosyaCikart()
    Set evn = CreateObject("Scripting.FilesystemObject")
   
    KaynakHedef = "C:\Windows\Temp\RAR\"
    RARYolu = "c:\Program Files\WinRAR\winrar.exe"
   
    For Each dosyalar In evn.getFolder(KaynakHedef).Files
        If dosyalar.Name Like "*.rar" Then
            Shell RARYolu & " e " & dosyalar.shortPath & " " & KaynakHedef, vbNormalFocus
            Kill dosyalar.Path
        End If
    Next
    MsgBox "Tamamlandı. "
End Sub


[yurttutan]

hocam elleriniz sağlık ama hiç çalışmadı

[Tarkan VURAL]

Umarım kodlamayı olduğu gibi kullanmamışsınızdır. Ben kendime örnek olarak o yolu üretmiştim. KaynakHedef kısmında kendi rar dosyalarınızın yolunu tanımlamanız gerekir.

[yurttutan]

Kod: Tümünü seç

Sub WinrarDosyaCikart()
    Set evn = CreateObject("Scripting.FilesystemObject")
   
    KaynakHedef = ""C:\Users\TERM1\Desktop\E ARŞİV DOSYA" 'benim dosya yolum
    RARYolu = "C:\Program Files\WinRAR\winrar.exe"
   
    For Each dosyalar In evn.getFolder(KaynakHedef).Files
        If dosyalar.Name Like "*.rar" Then
            Shell RARYolu & " e " & dosyalar.shortPath & " " & KaynakHedef, vbNormalFocus
            Kill dosyalar.Path
        End If
    Next
    MsgBox "Tamamlandı. "
End Sub

hocam dosya yolum yukarıda yazdığım gibi ama çalışmadı

[yurttutan]

Umarım kodlamayı olduğu gibi kullanmamışsınızdır. Ben kendime örnek olarak o yolu üretmiştim. KaynakHedef kısmında kendi rar dosyalarınızın yolunu tanımlamanız gerekir.

hocam enim makinenin virüs proğramı sizin yazdığınız kodun çalışmasını engellemiş
indirilen dosyalarda virüs vardiye bloke etmiş o yüzden çalışmamış virüs taramaproğramı bloke etmiş
Virüs tarama proğramınıo kapatınca çok güzel çalıştı Virüs proğramı sonradan aklıma geldi
HOCAM ÇOK ÖZÜR DİLERİM
ELLERİNE SAĞLIK
HOCAM HAKKINI HELAL ET
GERÇEKDEN ÖZÜR DİLERİM

[Tarkan VURAL]

Başarılar dilerim. Kolay gelsin.