Klasördeki dosyaları saysın eğer silinecekse silsin

[Hacı Bayram ÖZKAN]

Merhabalar; Arkadaşlar, aşağıdaki kodla ("C: \ MAAS \") burada bulunan dosyaları siliyorum.

Sub Dosyaları_Say_ve_Sil()

UYARI = MsgBox("ÖNCEKİ DOSYALAR SİLİN Sİ Mİ?", vbYesNo, "LÜTFEN DİKKAT")
If UYARI = vbNo Then GoTo 10

Dim Dosya
Dosya = Dir(CreateObject("Scripting.FileSystemObject").GetFolder("C:\MAAS\") & Application.PathSeparator & "\" & "Maas*" & "*.txt*", vbDirectory)
Do While Dosya <> ""
Kill ("C:\MAAS\") & Application.PathSeparator & Dosya
Dosya = Dir
Loop
10:

End Sub

Ancak benim isteğim şu , silmeden önce ("C: \ MAAS \") burada kaç dosya varsa bana bildirsin,

Örneğin; ("C: \ MAAS \") klasörünün içinde 3 adet TXT dosyası var,

Sonra, silmek istiyor musunuz?

EVET YADA HAYIR. Evette silecek, HAYIRDA silmeyecek.

Eğer herhangi bir dosya yoksa mesaj vermesin.

Herkese teşekkür ederim. İyi geceler.

 

[PLİNT]

Merhaba
Kodlarınız aşağıdaki gibi düzenlenebilir
(Adı "Maas" ile başlayan "txt" dosyaları için)

Dim Dosya, say As Long, sor
Dosya = Dir(CreateObject("Scripting.FileSystemObject").GetFolder("C:\MAAS\") & Application.PathSeparator & "\" & "Maas*" & "*.txt*", vbDirectory)
Do While Dosya <> ""
say = say + 1
Dosya = Dir
Loop
If say = 0 Then Exit Sub
sor = MsgBox(say & " Adet Dosya Var" & vbCrLf & "Silinsinmi?", vbYesNo)
If sor = vbYes Then Kill "C:\MAAS\" & "Maas*" & "*.txt"

 

[Hacı Bayram ÖZKAN]

Sayın PLİNT çok teşekkür ederim. İyi günler dilerim.