Kill metodu ile klasör içindeki dosyaları sildirmek

[Deniz_Excel]

Merhabalar,

Kill "C:\testing\*.*" yazarak sabit bir adres içerisindeki tüm dosyaları silebiliyoruz ancak ben yine C:\testing klasörü içerisinde tanımında "OM" karakterleri geçmeyen tüm dosyaları sildirmek istiyorum. Bunu nasıl yapabiliriz?

 

[Asri]

Merhaba,
Aşağıdaki şekilde deneyin.

Sub Ozelsil()
    Dim silinmeyecekler()
   
    dosya1 = Dir("D:\testing\*OM*.*")
    sira = 1
    While dosya1 <> ""
      ReDim Preserve silinmeyecekler(sira)
      silinmeyecekler(sira) = dosya1
      sira = sira + 1
      dosya1 = Dir
    Wend
   
    Dosya2 = Dir("D:\testing\*.*")
    While Dosya2 <> ""
      buldu = False
      For i = 1 To UBound(silinmeyecekler)
         If Dosya2 = silinmeyecekler(i) Then
            buldu = True
            Exit For
         End If
      Next i
      If buldu = False Then Kill ("D:\testing\" & Dosya2)
      Dosya2 = Dir
    Wend
   
End Sub