Skip to main content

AccessTr.neT


Boş Klasör / Alt Klasör Silme

Boş Klasör / Alt Klasör Silme

#3
sayın donepezil,

bir önceki mesajda yazılı olan kodları kullandığınızda sorunsuz çalışmaktadır fakat buna bir de kontrol kodları dahil edilerek kullanmak daha yerinde olacaktır.

çünkü;
tekrar aynı butonu tıklama durumu veya bu kodları çalıştırma işlemi söz konusu olursa,herhangi bir hata iletisi vermemesini sağlamak gerekmektedir.

bunun için de;

Kod:
If Len(CurrentProject.Path & "\" & "a" & "\" & "b" & "\" & "*.*") > 0 Then
MsgBox ("Dosya ve klasörler silinmiştir."), vbInformation, "DOSYA VE KLASÖR SİLİNDİ UYARISI"
Exit Sub
Else
Kill CurrentProject.Path & "\" & "a" & "\" & "b" & "\" & "*.*"

RmDir CurrentProject.Path & "\" & "a" & "\" & "b"

RmDir CurrentProject.Path & "\" & "a"

End If

yukarıdaki kodları kullanmak daha geçerli olacaktır.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Boş Klasör / Alt Klasör Silme - Yazar: donepezil - 11/01/2017, 14:21
Cvp: Boş Klasör / Alt Klasör Silme - Yazar: atoz112 - 11/01/2017, 14:42
Cvp: Boş Klasör / Alt Klasör Silme - Yazar: atoz112 - 11/01/2017, 14:55
Cvp: Boş Klasör / Alt Klasör Silme - Yazar: alpeki99 - 11/01/2017, 16:09
Cvp: Boş Klasör / Alt Klasör Silme - Yazar: alpeki99 - 11/01/2017, 16:36
Cvp: Boş Klasör / Alt Klasör Silme - Yazar: alpeki99 - 11/01/2017, 16:49
Task