منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نسخ وعدم اظهار رسالة تأكيد استبدال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : نسخ وعدم اظهار رسالة تأكيد استبدال (/showthread.php?tid=16273)

نسخ وعدم اظهار رسالة تأكيد استبدال - فاضل الحمود - 27-06-16

السلام عليكم 

كيف اجعل كود اخذ نسخة الاحتياطية  لقاعدة البيانات ينسخ من غير ما تظهر رسالة تأكيد استبدال لقاعدة البيانات

الكود هو : 

كود :
On Error Resume Next
   Dim SourceDir As String
   Dim DestDir As String
   Dim DatabaseFile As String
   Dim DistanationFile As String
   Dim Source As String
   Dim Destination As String

   'find out if there is file selected
   If File1.FileName = "" Then
       MsgBox "ÝÖáÇ Þã ÇæáÇ ÈÊÍÏíÏ ÇáãáÝ ", vbOKOnly, "áÇ íæÌÏ ãáÝ ãÍÏÏ"
       Exit Sub
   End If



   DatabaseFile = File1.FileName
   If Len(Dir1.Path) > 3 Then                             'not a root directory
       SourceDir = Dir1.Path & "\"
       Source = SourceDir & DatabaseFile
   Else
       SourceDir = Dir1.Path
       Source = SourceDir & DatabaseFile
   End If

   'if the want to append text to  filename
   If Check3.Value = vbChecked Then
       DistanationFile = Left$(File1.FileName, Len(File1.FileName) - 4) & txtAppend.Text & Right$(File1.FileName, 4)
   ElseIf Check1.Value = vbChecked Then
       DistanationFile = Left$(File1.FileName, Len(File1.FileName) - 4) & Format(Now, "dd-mm-yy-h-n") & Right$(File1.FileName, 4)
   Else
       DistanationFile = DatabaseFile
   End If



   If Len(Dir2.Path) > 3 Then                             'not a root directory
       DestDir = Dir2.Path & "\"
       Destination = DestDir & DistanationFile
   Else
       DestDir = Dir2.Path
       Destination = DestDir & DistanationFile
   End If

   'start copying
   CopyFileWindowsWay Source, Destination
   File2.Refresh
End Sub


RE: نسخ وعدم اظهار رسالة تأكيد استبدال - Ahmed_Mansoor - 29-06-16

وعليك السلام ورحمة الله وبركاته , أهلا أخي الكريم جرب دالة النسخ هذه :

PHP كود :
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Command1_Click()

Dim lRet As Long

lRet = CopyFile("D:\db1.mdb", "C:\db1.mdb", False)

If lRet Then
   MsgBox "Successful"
Else
   MsgBox "Fail"
End If

End Sub 


RE: نسخ وعدم اظهار رسالة تأكيد استبدال - فاضل الحمود - 01-07-16

جزاك الله خير أخي احمد منصور


اخي  احمد ولا يهون الأخوة الآخرون  في حال  اردت أن احدد مسار قاعدة البيانات في تكست 1 وأن أحدد مسار النسخ في تكست 2 كيف يمكن تعديل الكود السابق  طبعا انا حاولت ولكني فشلت كما في المرفق ارجو الإطلاع والتعديل وشكرا سلفا

RE: نسخ وعدم اظهار رسالة تأكيد استبدال - Amir_Alzubidy - 01-07-16

السلام عليكم
هذا مثال تطبيقي على كود اخي احمد جزاه الله خير
بتعديل بسيط جداً


[attachment=10987]

RE: نسخ وعدم اظهار رسالة تأكيد استبدال - فاضل الحمود - 01-07-16

اخي امير جزاك الله خير انت وأخونا احمد ولكني اريد عملية النسخ تتم بدون ادة الCommonDialog  لأني اريد أن احدد مسار قاعدة البيانات في تكست 1 وأن أحدد مسار النسخ في تكست 2  لأنني اريد ان اعمل خاصية النسخ التلقائي  يعني احدد للبرنامج الفترة التي يجب ان يقوم بعملية النسخ من دون  فتح مربع الحوار وشكرا وسبق لي أن جربت مثل هذا التعديل ولم ينفع

RE: نسخ وعدم اظهار رسالة تأكيد استبدال - Amir_Alzubidy - 01-07-16

ولا يهمك اخي فاضل
ارجو ان يكون هذا هو المطلوب
[attachment=10988]

RE: نسخ وعدم اظهار رسالة تأكيد استبدال - فاضل الحمود - 01-07-16

مع الأسف اخي امير  يقوم النسخ فقط ل Note ولكن لما اغير المسار الذي هو مسار قاعدة البيانات فإنه لا يعمل

فمثلا عندما اغير المسار في التكست 1 :       D:\ company trade

وفي التكست 2 :      E:\ company  

فإنه لايعمل اتعبناك معنا جزاكم الله خير