KLASÖRÜ TAMAMEN SİL

[hakanbolat]

KLASÃ?RÜ TAMAMEN SÝL

Slm Arkadaşlar..
Klasörü Tamamen Silmek İstiyorum İçindeki Bulunan Alt Klasör ve Dosyalarıda Hepsini Silmek İstiyorum..Bunu Makroyla Nasıl Yapabilirim.

"C:\Hakan\Hakan\Firmalar"

 

[ALPEN]

[vb:1:777b813bf0]Dim fso As FileSystemObject
Set fso = New FileSystemObject
If MsgBox("Silinsin mi?", vbyesno) = vbNo Then Exit Sub

fso.DeleteFolder "C:\Hakan\Hakan\Firmalar", True[/vb:1:777b813bf0]

"Çalışmadı" demeden önce,

Tools-> References penceresinden ""Microsoft Scripting Runtime Library" kütüphanesinin işaretlenmiş olduğundan emin olun.

 

[hakanbolat]

Çok Sağol Tam İstediğim Gibi,Silme Değilde Birde "Kopyalama ve Taşıma" ilede kod yazabilirmisin..