Soru Klasörler İçerisindeki Dosyaları Silmek

[murat_fidan]

Masa üstünde ki Deneme isimli klasörün içerisindeki 20 alt klasörde bulunan xlsx ve pdf uzantılı dosyaları makro ile nasıl silebilirim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Delete_Files()
    Dim File_Path As String
    
    File_Path = Environ("UserProfile") & "\Desktop\Deneme\"
    
    If Dir(File_Path, vbDirectory) <> "" Then
        Call Shell("cmd.exe /S /C" & "Del " & File_Path & "\*.xlsx" & "  /S /Q")
        Call Shell("cmd.exe /S /C" & "Del " & File_Path & "\*.pdf" & "  /S /Q")
        MsgBox "Klasörlerdeki excel ve pdf dosyaları silinmiştir."
    Else
        MsgBox "Klasör bulunamadı!", vbCritical
    End If
End Sub

 

[Uygur_26]

Pardon yanlış yere yazdım