- Katılım
- 25 May 2018
- Mesajlar
- 1,608
- En iyi yanıt
- 14
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Microsoft 365 TR+EN
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
Salt okunur dosyaları silemediğimizi yukarıda belirtmiştik, ancak aşağıdaki fonksiyonla dosya öz niteliğini vbNormal olarak ayarlarsak silinebilir duruma gelecektir.
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
PHP:
Sub ExcelTurkey()
Kill "C:\Temp\FileName.txt"
Kill "C:\Temp\*.txt"
Kill "C:\*.txt" 'Bunu denemeyin!
End SubSalt okunur dosyaları silemediğimizi yukarıda belirtmiştik, ancak aşağıdaki fonksiyonla dosya öz niteliğini vbNormal olarak ayarlarsak silinebilir duruma gelecektir.
PHP:
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