Sayın ates2014,

Aşağıdaki açıklamaların yapılması uygun görülmüştür.bu hata iletisini almanızın iki nedeni olabilir kanısındayım.

1)

Öncelikle,

Alıntı:gecici klasörünüde eklediğim halde neden bu hatayı veriyor acaba?

FolderExists = ((GetAttr(strPath) And vbDirectory) = vbDirectory)

ifadenize yönelik olarak;
konunuzun 23. ve 25.mesajlarında da değinildiği üzere,bu hatayı almanızın nedeni,gecici adlı klasör oluşumundan kaynaklı görülmektedir.bununla ilgili olarak,böyle bir hata iletisinin nasıl alındığını göstermek için,







Resimlerde de görüleceği üzere,eğer gecici adlı klasör uygulamanın yer aldığı klasör içerisinden olmadığı (ya da,kodlar aracılığı ile bakıldığında bu klasör bulunamadığı takdirde),resimlerdeki gibi ve bahsettiğiniz gibi hata iletisi olarak almanız söz konusu olacaktır.

Her ne kadar,ifadenizde bu isimle klasör oluşturduğunuzu beyan ediyor olsanız da,bu açıklama da geçersiz kalıyor gibi görünse de,sadece bilgilendirme amacı ile yazılmıştır.

2)

Bu hata iletisini almanızın bir diğer nedeni olarak da;

Private Sub PrepareDirModified(dirStr As String)

On Error Resume Next

    If Right(dirStr, 1) <> "\" Then dirStr = dirStr & "\"

    Kill dirStr & "*.*"

    RmDir dirStr

    'MkDir dirStr

On Error GoTo 0

End Sub

Yukarıdaki kodlar içerisinde yer alan RmDir dirStr kod satırı dolayısı ile,gecici adlı klasörü de silmesinden dolayı,işlemler sonrasında tekrar çalıştırıldığında bu isimli klasörü bulamadığı için,bu hata iletisine maruz kalıyorsunuzdur.dolayısı ile de,bu satırı etkisiz duruma getirerek bir de bu şekilde deneyiniz.

Bilginize…iyi çalışmalar,saygılar.