(11/01/2017, 14:55)atoz112 yazdı: 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.

Sn Atoz teşekkür ederim;

Ama maalesef bu konuyu açmadan önce yukarıda belirttiğiniz tüm yolları denedim. Maalesef bahsettiğim "çözüm bulamadım" söylevi bunun içindi. Formun yapacağı alternatifler dahilinde bu algoritma bazen çalışmakta ama bazı ihtimallerde hata vermekte. Öncelikle klasör içeriğini silme işlemini bu işlemden önceki kodlar yapmakta. Klasör boş kaldıktan sonra aynı üst klasörün altında yan yana pekçok boş klasör kalmakta. Ama alt klasörlerden 1 tanesi muhakkak dolu olmak zorunda. Bundan dolayı klasör boyutlarını kontrol eden bir çözüm sanıyorum daha uygun olacaktır.

İncelemeniz bakımından şurada sizin de yardımınızla çözümler bulduğumuz çalışmanın son halini ekliyorum. Sizin de yardımda bulunduğunuz kodları çok daha temiz ve sade olduğunu düşündüğüm bir çalışmaya aktardım. Kullanıcının tüm hamle olasılıklarına göre klasörleri açıyor, resimleri taşıyor, klasör açtırmayan değişken (örnekte Tc No) değiştirilmişse sadece resim adını değiştiriyor. Sizi bu konuda daha fazla yormamak için genel soru açmak istemiştim.

Örnek çalışma ekte.

Saygılar.