Taşıma işleminin gerçekleşmemesi için dosyanınım kendi programıyla açılmış olması, taşıma yetkinizin olmaması gibi durumlar olmalı. Dünkü değişiklikten sonra taşıyamazsa taşıyamadığı dosyaları söyler bence

if kalandosya > 0 Then MsgBox (kalandosya & "Taşınamamıştır")

kodunun görevi o