- Katılım
- 22 Aralık 2005
- Mesajlar
- 423
- Excel Vers. ve Dili
- Microsoft 365
- Altın Üyelik Bitiş Tarihi
- 03.12.2025
Arkadaşlar merhaba,
Shell websitesinden kod ile dosya indiriyorum ve dosyanın adı "() Shell FiloPlatform Araç Takip Araç Raporları Toplam Mesai Raporu" şeklinde. Bu dosyanın adını kod ile değiştirebiliyorum. Ama yeni isimli dosyadan sonra kalan bu dosyayı silmek istediğimde Runtime error 53 File Not Found hatası alıyorum. Elle yazdığım hiçbirşey yok ve kod kendi içinde ismi alıyor ve nasıl dosyayı bulamıyor anlayamadım. Saatlerdir Kill fonksiyonunun binbir türlü halini denedim. Başarılı olamadım. Kod isim değiştiriyor silmiyor. Hatta klasör içine dosyayı manuel taşıdım görüyor ama bulunamadı diyor. Bilmediğim bir detay var mutlaka. Kullanmaya çalıştığım kodu aşağıda paylaşıyorum. Değerli bilgilerinizi paylaşırsanız çok memnun olurum;
Shell websitesinden kod ile dosya indiriyorum ve dosyanın adı "() Shell FiloPlatform Araç Takip Araç Raporları Toplam Mesai Raporu" şeklinde. Bu dosyanın adını kod ile değiştirebiliyorum. Ama yeni isimli dosyadan sonra kalan bu dosyayı silmek istediğimde Runtime error 53 File Not Found hatası alıyorum. Elle yazdığım hiçbirşey yok ve kod kendi içinde ismi alıyor ve nasıl dosyayı bulamıyor anlayamadım. Saatlerdir Kill fonksiyonunun binbir türlü halini denedim. Başarılı olamadım. Kod isim değiştiriyor silmiyor. Hatta klasör içine dosyayı manuel taşıdım görüyor ama bulunamadı diyor. Bilmediğim bir detay var mutlaka. Kullanmaya çalıştığım kodu aşağıda paylaşıyorum. Değerli bilgilerinizi paylaşırsanız çok memnun olurum;
Kod:
Dim fso, oFile, oFolder
pvDir = Dir(ThisWorkbook.Path & "\1\" & "*.*", vbHidden + vbSystem)
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(Thisworkbook.path)
For Each oFile In oFolder.Files
vFil = pvDir & oFile.Name
fso.DeleteFile vFil
Next