Sayın olcay.kaya kodu aşağıdaki şekilde değiştirerek dener misini?

Private Sub Komut11_Click()

zaman = Format(Date, "yyyy_mm_dd") & "_" & Format(Time, "hh_mm")



strFrom = Application.CurrentProject.Path & "\" & Application.CurrentProject.Name

strTo = Application.CurrentProject.Path & "\yedek\" & zaman & "_" & Application.CurrentProject.Name

    

    Dim fso As FileSystemObject

        Dim sSourcePath As String

        Dim sSourceFile As String

        Dim sBackupPath As String

        Dim sBackupFile As String

        Dim DB As New Access.Application

If Len(Dir(Application.CurrentProject.Path & "\yedek", vbDirectory)) = 0 Then

   MkDir Application.CurrentProject.Path & "\yedek"

End If

        Set fso = New FileSystemObject

        fso.copyFile strFrom, strTo, True

        Set fso = Nothing

        Beep

        MsgBox "Backup was successful and Saved" & "Backup completed"



End Sub