[Hazem1]

(26-09-18, 01:36 AM)elgokr كتب :

انت قمت بالتعديل على الكود لديك بدل من استبداله

انت لست بحاجة الى شرط التحقق لهذا السطر

كود :

If My.Settings.BupDB = Now.Date Then
End If

فقط استخدم ما بداخلهم وسيعمل معك بدون اى مشكلة

تحياتى لك

وتمنياتى لك التوفيق

سُبحان الله، قمت بوضع الكود التالي ولكن ظهر الخطأ الذي في الصورة 

PHP كود :

Private Sub Button20_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        If con.State = ConnectionState.Open Then con.Close()
        My.Computer.FileSystem.CopyFile(Application.StartupPath & "D:\Backup\BupDB-" & Now.Date.ToString("dd-MM-yyyy") & "A18.accdb", Application.StartupPath & "\A18.accdb", True)
    End Sub 


حاولت كتابة مسار الملف بالكامل كما في الكود التالي :  ولكن ظهر نفس الرسالة الخطأ 

PHP كود :

'If con.State = ConnectionState.Open Then con.Close()
        'My.Computer.FileSystem.CopyFile(Application.StartupPath & "D:\Backup\BupDB-" & Now.Date.ToString("dd-MM-yyyy") & "A18.accdb", Application.StartupPath & "D:HHH\WindowsApplication1\bin\Debug\A18.accdb", True)