(22/03/2019, 17:27)haliliyas yazdı: kodun 25. mesajdaki kısmını aşağıdaki ile değiştirip dener misiniz
If UBound(txtDosyaAdi) < 3 Then 'bu kısım eğer 4ten az sayıda alan varsa hatalı olduğunu varsayar
HataSay = HataSay + 1
StrHatalar = StrHatalar & vbCrLf & "Hatalı dosya ismi : " & xMyFile & " dosyası taşınamadı." 'taşınamayan dosya adı ve sayısı kayedilir
GoTo 10 'dosya ismi hatalı olduğu için ara basamakları atlayıp sonraki dosyaya geçmeyi sağlar
End If
Denedim, tekrar düzeldi. Teşekkürler.