Soru Filtreli Dosya silmek

Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

C++:
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
 
Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Korhan Ayhan


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