VBA kullanarak nasıl () bir dosyanın var olup olmadığını ve eğer öyleyse, (b) silin test edebilirim?

1.) here kontrol edin. Temelde bu

Function FileExists(ByVal FileToTest As String) As Boolean
   FileExists = (Dir(FileToTest) <> "")
End Function

Size çeşitli hata işleme gerekli anlamaya bırakıyorum ama bu hatayı düşünüyor olurdum şeyler kullanma arasında:

• Boş bir dize geçirilen kontrol edin.
• Bir dize yol/dosya adı geçersiz karakterler içeren kontrol edin

2.) Nasıl bir Dosya Silmek İçin. this. bak Temelde Kill komutunu kullanın ama bir dosyayı salt okunur olma olasılığı için izin vermeniz gerekir. İşte sana bir fonksiyonu

Sub DeleteFile(ByVal FileToDelete As String)
   If FileExists(FileToDelete) Then 'See above
      SetAttr FileToDelete, vbNormal
      Kill FileToDelete
   End If
End Sub

Yine, hata işleme ve bir daha bırakmayacağım bu şeyler düşünün istiyorum:

• Bu farklı bir dosya vs. bir dizin için duracak? Kullanıcının açıkça bir dizini silmek istiyorlar belirtmek için olması gerekir?

• Kodu salt okunur veya kullanıcı salt okunur özniteliği ayarlanmış göstergesi çeşit verilmelidir öznitelik otomatik olarak sıfırlamak istiyor musunuz?