Çözüldü Klasör içindeki tüm alt klasörlerin içindeki fazla dosyaları silmek

aşağıdaki kod işinize yarayabilir
Not: benim yazdığım adres yerine kendi adresinizi yazabilirsiniz
Not: çöp kutusuna göndermeden bilgisayardan tam siler
aşağıdaki
HTML:

Merhaba,

Koda U:\Belgelerim\ yolunu yazdım. Sadece U:\Belgelerim\ Altında işlem yapıyor,
Benim yapmak istedim;
U:\Belgelerim\ Altındaki tüm alt klasörleri tarayarak silem işlemi yapmasını istiyorum.


Sub DosyaSil()
Dim klasor As String
Dim dosya As String
Dim kelime As String
Dim fs As Object
Dim dosyaObj As Object

' Klasör yolunu ve aranacak kelimeyi belirtin
klasor = "U:\Belgelerim\"


kelime = "2023-01-13 18-41 Copy of"
' Dosya sistemini oluştur
Set fs = CreateObject("Scripting.FileSystemObject")

' Klasördeki dosyaları döngüye al
dosya = Dir(klasor & kelime & ".*")
Do While dosya <> ""
Set dosyaObj = fs.GetFile(klasor & dosya)
dosyaObj.Delete ' Dosyayı sil
Set dosyaObj = Nothing
dosya = Dir
Loop

' Bellekten fs objesini temizle
Set fs = Nothing

' Tamamlandı mesajı göster
MsgBox "Belirtilen klasördeki dosyalar başarıyla silindi!", vbInformation
End Sub

Merhaba,

Oldu elinize sağlık. ancak çok az sayıda alt klasör içerisindeki dosyaları silmiyor. nedeni bulamadım

klasör yada dosya adlarında farklı karakterler var mı?

Yok.. Resim ekte bu dosyayı silmiyor.

ben de anlamadım neredeyse aynı isme sahip dosya oluşturup denedim sorunsuz sildi
açık yada kullanımda değil değil mi?

Yok.. Bende kontrol ettim. Ama işimi büyük bir ölçüde gördü. çok teşekküer ederim. Elinize Emeğinize sağlık.

rica ederim
iyi çalışmalar