Gizli dosya silmek

[mozdem]

deneme txt dosyasını silmek için aşağıdaki kodu kullanıyorum.
Kill "C:\deneme.txt"

Ancak eğer bu dosya gizli bir dosya ise ve gizli dosyalar görünmüyor ise Kod ile silebilirmiyim.
yoksa, vbscript mi kullanmalıyım. Eğer öyle ise vbscript kodu nasıl olmalı ve excelden nasıl çalıştırabiliriz. (sitede vbscript excelden nasıl çalıştırılır araması yapmadım.)
Teşekkür ederim.

 

[Husgvarna]

deneme txt dosyasını silmek için aşağıdaki kodu kullanıyorum.
Kill "C:\deneme.txt"

Ancak eğer bu dosya gizli bir dosya ise ve gizli dosyalar görünmüyor ise Kod ile silebilirmiyim.
yoksa, vbscript mi kullanmalıyım. Eğer öyle ise vbscript kodu nasıl olmalı ve excelden nasıl çalıştırabiliriz. (sitede vbscript excelden nasıl çalıştırılır araması yapmadım.)

Gizli dosyayı görünür yaparak; silmek için aşağıdaki kodu uygulamanız yeterlidir.

Sub sil()
SetAttr "c:\Deneme.txt", vbHidden = False
Kill "c:\Deneme.txt"
End Sub

 

[mozdem]

Malesef hata veriyor

Gizli dosyayı görünür yaparak; silmek için aşağıdaki kodu uygulamanız yeterlidir.

Sub sil()
SetAttr "c:\Deneme.txt", vbHidden = False
Kill "c:\Deneme.txt"
End Sub

cevap için teşekkür ederim ama
SetAttr "c:\Deneme.txt", vbHidden = False
satırında Run-Time error 53 hatası veriyor

 

[halit3]

alternatif olarak bunu denermisiniz.

Sub dosyasil()
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
DosyaSistemi.DeleteFile "c:\Deneme.txt"
MsgBox "c:\Deneme.txt Dosyası silindi silindi !", vbInformation, "DİKKAT"
End Sub

 

[Husgvarna]

cevap için teşekkür ederim ama
SetAttr "c:\Deneme.txt", vbHidden = False
satırında Run-Time error 53 hatası veriyor

Sn.mozdem; demekki "c" diskinde gizli "deneme.txt" yok..!
aşağıdaki şekilde

SetAttr "c:\Deneme.log", vbHidden = False

SetAttr "c:\Deneme.bat", vbHidden = False

SetAttr "c:\Deneme.bak", vbHidden = False

uzantıları değiştirerek deneyin. (Gizli dosyanın görünür olması için "vbHidden = False" yerine "vbNormal" 'de
olabilir.)

 

[mozdem]

sayın husgvarna;
haklıymışsınız dosya adında bir yanlışlık olmuş.

halit3 hocam teşekkür ederim cevap için.


1 sorunum var

Kill "c:\deneme.txt"
kodunu kullandığımda adı ve uzantısı ne olrsa olsun silsin istediğimde çalışmıyor.
eğer halit3 hocanın vermiş olduğu kodu kullandığımda ise salt okunur dosyalarda hata veriyor.
(tabi sorumda saltokunur dosyaları silsin diye bir ibare yoktu)

yani sorumu biraz genişletmiş olarak şöyle sorarsam;
gizli ve salt okunur dosyaların adı ve uzantısı ne olursa olsun silsin.

Aslında ilk soruma karşılık verilen cevaplar yeterli, ve bu ilginizden dolayı çok teşekkür ederim.
Yinede üzt satırdaki sorunun cevabını bulabilirsem memnun olurum.
Teşekkürtler

 

[halit3]

Benim düşenceme göre buradaki kodların yanlışlıkla sistem dosyalarını sileceği gerekçesiyle kaldırdım.

 

[Husgvarna]

(tabi sorumda saltokunur dosyaları silsin diye bir ibare yoktu)

yani sorumu biraz genişletmiş olarak şöyle sorarsam;
gizli ve salt okunur dosyaların adı ve uzantısı ne olursa olsun silsin.

Aşağıdaki şekildede deneyebilirsiniz.

 Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")

DosyaSistemi.DeleteFile "c:\Deneme\*.*", True
MsgBox "c:\Deneme\*.* Dosyası silindi silindi !", vbInformation, "DİKKAT"

Deneme klasörü içerisinde ki dosyaların Sadece salt okunur ve gizli olanları seçip silmek için

Dim ds, f, dc
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Deneme")
Set dc = f.Files
For Each Dosya In dc

If GetAttr(Dosya) And vbReadOnly Then ds.DeleteFile Dosya, True
If GetAttr(Dosya) And vbHidden Then ds.DeleteFile Dosya, True

Next

 

[halit3]

Benim düşenceme göre buradaki kodların yanlışlıkla sistem dosyalarını sileceği gerekçesiyle kendi yazdığım kodları kaldırdım.

 

[mozdem]

Deneme klasörü içerisinde ki dosyaların Sadece salt okunur ve gizli olanları seçip silmek için

Dim ds, f, dc
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Deneme")
Set dc = f.Files
For Each Dosya In dc


If GetAttr(Dosya) And vbReadOnly Then ds.DeleteFile Dosya, True
If GetAttr(Dosya) And vbHidden Then ds.DeleteFile Dosya, True

Next

Çok teşekkür ederim hocam. tam istediğim gibi
Yalnız döngü içine
On Error Resume Next
kodu ekleyerek hiç hata vermeden işlem tamam