- Katılım
- 27 Mart 2006
- Mesajlar
- 44
ekteki örnek ile bilgisayarın herhangi bir yerindeki dosyayı silebiliyorum. ama ben dosyanın bulunduğu klasörü silmek istiyorum. ne yapmam gerekli
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub DeleteFolder()
Dim fso
Dim fol As String
fol = "C:\deneme" ' sileceğiniz klasör i yolu
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(fol) Then
fso.DeleteFolder fol
Else
MsgBox fol & " klasörü ya yok ya da silinmiş!" _
, vbExclamation, "Klasör Bulunamadı"
End If
End Sub
Referans eklemek isterseniz, "wscript.exe" yi ekleyin.Dim FSO As New FileSystemObject
satırında hata veriyor. Reference mi eklemem lazım?.tşk