kodu aşağıdaki ile değiştirip dener misiniz?

'hy taşı__________________________

Dim DosyaRs As New ADODB.Recordset

Dim sOrGu As String



Dim fso As Object

Dim kaynakDosya As String

Dim HedefDosya As String

Set fso = CreateObject("Scripting.FileSystemObject")



sOrGu = "select * from YEDEKLEME" 'tablo seç

    DosyaRs.Open sOrGu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If DosyaRs.RecordCount = 0 Then Exit Sub

    Do While Not DosyaRs.EOF

        kaynakDosya = DosyaRs.Fields(1)

    yeniad = Date & "_" & Format(Time(), "hh.nn.ss") & "_" & Mid(Replace(DosyaRs.Fields(1), ".png", ""), InStrRev(DosyaRs.Fields(1), "\") + 1)

    Debug.Print Mid(Replace(DosyaRs.Fields(1), ".png", ""), InStrRev(DosyaRs.Fields(1), "\") + 1)

    HedefDosya = Me.yedeklasor & "\" & yeniad & ".png"

    fso.MoveFile kaynakDosya, HedefDosya

        DosyaRs.MoveNext

    Loop

Set fso = Nothing

'hy taşı__________________________Bitti