[amineinfo]

(09-01-16, 05:57 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم ، إذا أردت أن تحفظ النسخة الإحتياطيه في القرص D قم بتغيير هذه الجملة في جميع كود المثال الذي أرفقته أنا :

PHP كود :

App.Path & "\BackupFolder\" 


وأستبدلها بالقرص D هكذا :

PHP كود :

"D:\" 


مشكور أخي الكريم لكن عند حفظ النسخة لاتظهر بتاريخ اليوم تظهر بهاذا الشكل & BackupName

---

(09-01-16, 10:11 PM)amineinfo كتب :

(09-01-16, 05:57 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم ، إذا أردت أن تحفظ النسخة الإحتياطيه في القرص D قم بتغيير هذه الجملة في جميع كود المثال الذي أرفقته أنا :

PHP كود :

App.Path & "\BackupFolder\" 


وأستبدلها بالقرص D هكذا :

PHP كود :

"D:\" 


مشكور أخي الكريم لكن عند حفظ النسخة لاتظهر بتاريخ اليوم تظهر بهاذا الشكل & BackupName

If Dir$("D:\", vbDirectory) = "" Then
   MkDir "D:\"
   DoEvents
End If

If Dir$(App.Path & "\bnv111.mdb") = "" Then
   MsgBox "áã íÊã ÇáÚËæÑ Úáì ÞÇÚÏÉ ÇáÈíÇäÇÊ ÈÌÇäÈ ÇáÈÑäÇãÌ!", vbOKOnly + vbExclamation, "ÊäÈíå"
   Exit Sub
End If

Set Adodc1.Recordset.ActiveConnection = Nothing
DoEvents

Dim BackupName As String

BackupName = Format(Date, "YYYY-MM-DD") & "-" & _
             Format(Time, "HH-MM-SS") & _
             ".mdb"

FileCopy App.Path & "\bnv111.mdb", "D:\" & BackupName
DoEvents

هذا هو الكود كما طلبت مني