klasörü silme

[oktaykarauzun]

ekteki örnek ile bilgisayarın herhangi bir yerindeki dosyayı silebiliyorum. ama ben dosyanın bulunduğu klasörü silmek istiyorum. ne yapmam gerekli

 

[modalı]

Sayın oktakarauzun,

Aşağıdaki kodları deneyin:

Dim FSO As New FileSystemObject
    Dim strPath As String
    
    If FSO.FolderExists(strPath) = True Then
        FSO.DeleteFolder (strPath)
    End If

İyi çalışmalar

 

[oktaykarauzun]

Dim FSO As New FileSystemObject
satırında hata veriyor. Reference mi eklemem lazım?.tşk

 

[modalı]

Bir de bunu deneyin:

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

İyi çalışmalar

 

[Zeki Gürsoy]

Dim FSO As New FileSystemObject
satırında hata veriyor. Reference mi eklemem lazım?.tşk

Referans eklemek isterseniz, "wscript.exe" yi ekleyin.

 

[simendifer]

Hackerlik kokuyor bence

kusura bakmayın arkadaşlar ben bunda bir hacker olayı hissediyorum yanlışmı düşünüyorum bu yolla bir arkadaşımız örnek dosyada şöyle bir sorunum var diye bir sorununu iletse formunun bir yerine rapor butonun özelliklerinde olayyordamına tıkladıgında visual basic koduna bu kodları yazsa bu koddada sistem32 in içinde bir dosyayı sildirse bu yardım edecek kişiye zarar vermezmi örnekleri çogaltabiliriz

 

[oktaykarauzun]

sayın simendifer yanlış düşünüyorsun. öyle bir niyetim olsa bu kadar basit bir kodu herhalde yazabilirdim. ilk verdiğim örnekteki kodu da bu forumdan aldım.yapmış olduğum bir programın yedekleme konusu ile ilgili bu koda ihtiyaç oldu. ama senin söylediğin nedenleri zaten yapmayı düşünenler herhalde bundan daha fazla bilgiye sahiptir. yine de ikazların için tşk.ama benim böyle bir niyetim yok onu bilesiniz.


Sayın modalı tşk.