ADO ile veri aldıktan sonra dosyayı silmek.

[ÖmerFaruk]

Merhaba.
ADO ile kapalı excel (xls) dosyasından verileri çekiyorum.
Connection ve Recordset objelerini kapatıyorum. Ancak Kill satırında Permission Denied hatası alıyorum.
Eksik ya da hatam nerededir? Klasör özellikleriyle alakalı bir durum mudur?

    If AdoCn.State <> 0 Then AdoCn.Close
    If AdoRs.State <> 0 Then AdoRs.Close
    Kill Klasor & "\" & Dosya

 

[Haluk]

Benim yaptığım denemelerde böyle bir sorunla karşılaşmadım.... dediğiniz gibi klasör veya dosya özeliikleriyle ilgili bir durum olabilir.

.

 

[ÖmerFaruk]

Sub DosyaSil(Klasor, Dosyam)
    Dim fL As Object
    Set fL = CreateObject("Scripting.FileSystemObject")
    For Each Dosya In fL.GetFolder(Klasor).Files
     If Dosya.Name = Dosyam Then fL.DeleteFile Dosya: Exit For
    Next
    Set fL = Nothing
End Sub

Bu şekilde sileyim dedim. Yine aynı uyarıyı verdi.
Dosya ya da klasör özelliklerinden olması çok daha olası ancak çözüm nasıl olacak şu ana kadar bulamadım.

 

[Necdet]

Merhaba,

ADO kullanmadan ilgili dizindeki dosyayı makro yardımı ile silebiliyor musunuz?
İzinlerde sıkıntı var mı yok mu anlamak için.

 

[ÖmerFaruk]

Boş bir modül içine aşağıdaki kodları ekleyerek çalıştırdım.
Aynı hatayı verdi.
Exceli komple kapatıp açtım, Userform kodlarını hiç aktif etmeden bu makroyu tekrar çalıştırdım. Sonuç aynı.

Sub DosyaSil()
    Dim fL As Object
    Klasor = ThisWorkbook.Path & Application.PathSeparator & "Banka"
    Dosyam = "202201-Ocak" & ".xls"
    Set fL = CreateObject("Scripting.FileSystemObject")
    For Each Dosya In fL.GetFolder(Klasor).Files
     If Dosya.Name = Dosyam Then fL.DeleteFile Dosya: Exit For 'Yine bu satırda Permission denied veriyor
    Next
    Set fL = Nothing
End Sub

Devamında D sürücüsünün altına yeni bir klasör açıp yeni bir boş excel dosyası ekledim.
Bu kod o dosyayı direkt sildi.

Mevcut silmek istediğim klasör altındaki dosyayı direkt manuel silmek istediğimde Excel üzerinde açık olduğu uyarısı verdi.
Exceli kapattım, yine silmedi ve excel üzerinde açık olduğu uyarısı verdi.
Dosyayı kopyalayabiliyor ama silemiyorum.
Ne manuel ne de VBA ile.
Tek denemediğim bilgisayarı kapatıp açmak kaldı.

 

[Necdet]

dizin üzerinde izinlerde bir sıkıntı var bence, onları kontrol etmek gerek.

 

[ÖmerFaruk]

Necdet bey.
Excel kapalı ve direkt dosya gezgininden klasörün içindeki dosyayı silemiyorum. Dosya ya da klasör özelliği olsa aşağıdaki mesajı almamam lazım diye düşünüyorum.

 

[Necdet]

Ömer bey,
mesaja bakılırsa dosya halaaa açık görünüyor.

 

[Korhan Ayhan]

Görev yöneticisinden açık olan excel uygulamalarının hepsini kapatıp öyle deneyiniz.

 

[ÖmerFaruk]

Ben de bunu çözemiyorum. İlginç.

Şöyle yaparak sorunumu şimdilik geçiştirdim.
Yeni bir klasör açtım benzer adla. Dosyayı sildirmiyor, kestirmiyor ama kopyalattırdığı için dosyayı bu klasöre kopyaladım.
Kodlar orjinal haliyle ADO işlemlerini yapıp Kill komutuyla da başarılı şekilde sildim.

Ancak eski klasörü ve içindeli dosyayı halen sildirmiyor bana.
Kodları yazdığım dosyanın gelişimi esnasıdna bir ADO bağlantısını kapatmamış dahi olsam exceli kapattığım için tüm ADO bağlantıları kopacaktır diye düşünüyorum. Doğrumudur anlayamadım ama.

 

[ÖmerFaruk]

Görev yöneticisinden açık olan excel uygulamalarının hepsini kapatıp öyle deneyiniz.

Excel kapalı olduğu halde arka planda çalışıyormuş. Dediğinizi yapınca düzeldi. Teşekkürler.

Arka planda neden çalıştığını henüz çözemedim.
Ado işlemlerini tekrar tekrar denedim bir sorun yok.
Ado nesnelerini kapatmadan kodları sonlandırdım aynı problem oluşacak mı diye yine oluşmadı.

Sanırım daha fazla kurcalamaya gerek yok. Tekrar olduğunda tekrar bakarız artık.