Soru Filtreli Dosya silmek

[k0081]

Merhaba arkadaşlar;

C:\Deneme klasörü içinde,

abc
dfg
hjk
...
...

gibi klasörler var...

C:\Deneme2 klasöründe de,

abc.zip
dfg.zip
hjk.zip
....zip
...zip

şeklinde .zip uzantılı dosyalar var. ( Dosya isimleri ile klasör isimleri aynı.)

yapmak istediğim C:\Deneme2 klasöründen, C:\Deneme\ klasöründe bulunmayan (klasor isimleri) dosyaları command buton ile silmek...

* Silme işlemi C:\Deneme2 klasöründen olacaktır... ( C:\Deneme klasöründen referansla...)

yardımcı arkadaşa şimdiden Teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Klasorden_Dosya_Sil()
    Dim Yol_1 As String, Yol_2 As String, Dosya As String, Say As Long
       
    Yol_1 = "C:\Deneme2\"
    Yol_2 = "C:\Deneme\"
   
    Dosya = Dir(Yol_1 & "*.zip")
   
    While Dosya <> ""
        If CreateObject("Scripting.FileSystemObject").FolderExists(Yol_2 & Replace(Dosya, ".zip", "")) = False Then
            Kill Yol_1 & Dosya
            Say = Say + 1
        End If
        Dosya = Dir
    Wend
   
    MsgBox Say & " adet dosya silinmiştir."
End Sub

 

[k0081]

Korhan Ayhan


Hocam çok Teşekkür ederim., Tamamdır... elinize sağlık.