AccessTr.neT
Visual Basic 6.0 da Klsör silme işlemleri - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Visual Basic 6.0 da Klsör silme işlemleri (/konu-visual-basic-6-0-da-klsor-silme-islemleri.html)



Visual Basic 6.0 da Klsör silme işlemleri - cenking - 19/06/2015

Merhaba,
Visual basic 6.0 da yazdığım bir programda Klasör silme işlemi yapmak istiyorum.
Eğer silmek istediğim klasör altında alt klasör/klasörler varsa ya da herhangi bir dosya varsa
RmDir komutu Run Time Error "75" - Path/File Access Error şeklinde hata veriyor.
bir klasörü içeriğinde alt klasörler ve dosyalar olsa dahi silecek bir komut varmı yardımcı olabilirmisiniz.

teşekkürler
cenk


Cvp: Visual Basic 6.0 da Klsör silme işlemleri - kadirba72 - 22/02/2017

Paylaştığım kodlar ile programınızı yapabilirsiniz.

Kod:
Private Sub Command1_Click()

Rmdir "C:\accesstr\" ' rmdir klasor silme kodudur rmdir'in hemen ardından klasor ismini "" ile yazabilirsiniz.

End Sub




Kod:
Private sub Command1_Click()

On error Resume Next ' hata olursa devam et.

Kill "C:\accesstr\*.ocx" ' dizindeki tum .ocx'leri siler .

Kill "C:\accesstr\*.exe" .exeleri siler.

Kill "C:\accesstr\*.txt" .txtleri siler.

Kill "C:\accesstr\*.png" .pngleri siler.

Kill "C:\accesstr\*.jpg" .jpgleri siler.

Kill "C:\accesstr\*.bmp .bmpleri siler ."

Kill "C:\accesstr\*.ico" .icolari siler.

Kill "C:\accesstr\*.gif" ' çoğaltabilirsiniz uzantılari .

End Sub