اسئلة حول حفظ الملفات

السؤال الأول

بالنسبة لطلبك ان ينبهك البرنامج ان الملف موجود سابقاً:

Private Sub Command1_Click()
Dim FullPath, File_Name
FullPath = "c:xtest.txt"
File_Name = Dir(FullPath, vbDirectory)
If File_Name = "" Then
FileCopy "c:test.txt", "c:xtest.txt"
MsgBox "تم نسخ الملف", vbCritical, "Files"
Exit Sub
End If
ANSWER = MsgBox("الملف موجود سابقاً هل تريد الكتابة عليه", vbQuestion + vbYesNo)
If ANSWER = vbNo Then
Exit Sub
End If
FileCopy "c:test.txt", "c:xtest.txt"
End Sub

السؤال الثاني

ضع كود يقوم بسؤال المستخدم هل يريد حفظ التعديلات أم لا !!

ANSWER = MsgBox("هل تريد حفظ التعديلات", vbQuestion + vbYesNo)
If ANSWER = vbNo Then
Exit Sub
End If
اذ وافق المستخدم قم بعمل ما تريده نسخ او غيره !!

السؤال الثالث

Me.Label1.Caption = Mid(Me.File1.FileName, 1, Len(Me.File1.FileName) - 4)

اخوك (f)

والله انك رهيب

بس بالنسبة للسؤال الثاني كيف ممكن تعرف انه سوى تعديل او لا

والف شكر مرة ثانية حتى لو ما جاوبت

تعرف بمقارنة تاريخ تعديل الملف مع الملف الجديد او الحجم ..