Makale KILL

Bu Makale Yaralı Oldu mu?

  • Evet

  • Hayır


Sonuçlar yalnızca oylamadan sonra görülebilir.

Admin

Yönetici
Site Sahibi
Katılım
25 May 2018
Mesajlar
843
En İyi Yanıtlar
48
Beğeniler
583
Puanları
93
Konum
İstanbul
#1
KILL( PathName )

Var olan bir dosyayı siler.

PathName - Silinecek dosyanın tam yol adı. (String)

Açıklamalar
Bu alt program joker karakterlerin kullanımını destekler (*,?). Bütün dizinleri kaldırmak için de kullanılabilir.
Bu ifade salt okunur dosyaları silmek için kullanılamaz.
Var olmayan bir dosyayı silmeye çalışırsanız, bir hata alırsınız . (File Not Found)
Şu anda açık olan bir dosyayı silmeye çalışırsanız, bir çalışma zamanı hatası alırsınız . (Run-Time Error)
RMDIR deyimini kullanarak tüm dizinleri veya klasörleri silebilirsiniz.

Örnek Kullanım
VBA:
Sub ExcelTurkey()

    Kill "C:\Temp\FileName.txt"
    Kill "C:\Temp\*.txt"
    Kill "C:\*.txt" 'Bunu denemeyin!

End Sub
Salt okunur dosyaları silemediğimizi yukarıda belirtmiştik, ancak aşağıdaki fonksiyonla dosya öz niteliğini vbNormal olarak ayarlarsak silinebilir duruma gelecektir.

VBA:
Public Function KillFile(dosyayolu As String) As Boolean
    If Len(Dir(dosyayolu)) > 0 Then
        SetAttr dosyayolu, vbNormal
        Kill dosyayolu
        KillFile = true
        Exit Function
    End If
    KillFile = false
End Function

Sub Kill_Ornek()
   If KillFile("C:\test.txt") Then Debug.Print "Silme İşlemi Tamamlandı!"
End Sub
 
Üst Alt