- Katılım
- 24 Şubat 2009
- Mesajlar
- 1,070
- Excel Vers. ve Dili
- 2016
- Altın Üyelik Bitiş Tarihi
- 01-03-2023
Merhabalar; Arkadaşlar, aşağıdaki kodla ("C: \ MAAS \") burada bulunan dosyaları siliyorum.
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.
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.