(21/03/2019, 11:32)haliliyas yazdı: 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
kodunun görevi oif kalandosya > 0 Then MsgBox (kalandosya & "Taşınamamıştır")
Dosya taşınamadığında, aşağdaki döngüye takılıyor.
Hata kodu 5, 6, 9 gibi mesajlar veriyor.
Acaba, bu döngünün içine bir mesaj yazabilir miyim?
Kod:
HataYakala:
If Err.Number = 70 Then
MsgBox "Aşağıdaki Sorunlara raslandı." & vbCrLf & vbCrLf & _
"Hata Kodu: " & Err.Number & vbCrLf & _
"Hata Kaynağı: Dosya taşıma " & vbCrLf & _
"Hata Tanımı: " & Err.Description, _
vbCritical, "An Error has Occured!"
Else
MsgBox "Aşağıdaki Sorunlara raslandı." & vbCrLf & vbCrLf & _
"Hata Kodu: " & Err.Number & vbCrLf & _
"Hata Tanımı: " & Err.Description, _
vbCritical, "An Error has Occured!"
End If
Resume HataYakala_Exit