تعديل علي كود كشف ملف تكست في ويندوز

[حسين العربى]

السلام عليكم ورحمة الله وبركاته 

اخواني اعضاء ومشرفي المنتدي الكرام  سؤالي هو ان هذا الكود (

If Dir("C:\WINDOWS\MOVI.txt") = "" Then
MsgBox "áíÓ áÏíß ÍÞ ÊÔÛíá ÇáäÙÇã", vbOKOnly, "98999999"*íÑÌí ÇáÇÊÕÇá ÈãÏíÑ ÇáäÙÇã*"

DoCmd.Quit
End If

وضعته في فورم تسجيل الدخل يقوم هذا الكود بالبحث عن ملف في ال c  اسمه movi عندما يجد هذا المف يقوم بفتح البرنامج والعكس صحيح 

اريد ان اجعل هذ الكود ان يعمل العكس اي بمعني اذا وجد الملف لايعمل وشكرا 

[ابوخليل]

تستطيع بالكود نفسه تحقيق الشرط

الكود يقول : اذا كان الملف غير موجود إذا

فيكون الجواب الاول = تشغيل ، وإلا = اغلاق

 

اما ان كنت تريد من الكود عكس هذا فيمكن تعديله على هذا النحو

If Len(Dir("C:\WINDOWS\MOVI.txt") )>0 Then

الكود يقول : اذا كان عدد حروف الملف اكبر من صفر ( يعني موجود)  إذا

فيكون الجواب الاول = اغلاق ، وإلا = تشغيل

 

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

 

 

[حسين العربى]

شكرا اخي الفاضل ابو خليل علي مرورك الطيب 

لوسمحت اخي الفاضل ابو خليل التعديل علي الكود  ليتناسب مع 

 اذا كان الملف غير موجود إذا

فيكون الجواب الاول = تشغيل ، وإلا = اغلاق

[محمد سلامة]

هذا هو الكود المعدل اخى الكريم وهو من مشاركة استاذنا ابوخليل

If Len(Dir("C:\WINDOWS\MOVI.txt") )>0 Then

[ابوخليل]

اخي حسين

كودك الذي عرضته بالمشاركة الاولى  يحقق طلبك 

If Dir("C:\WINDOWS\MOVI.txt") = "" Then
MsgBox "يعمل"
Else
MsgBox "لا تعمل"
End If

 

ايضا الكود الثاني والذي عرضه الاستاذ محمد

If Len(Dir("C:\WINDOWS\MOVI.txt")) > 0 Then
MsgBox "لا يعمل"
Else
MsgBox "اعمل"
End If

 

[حسين العربى]

شكرا لكم وجزاكم الله خيرا

 

[محمد سلامة]

استاذنا ابوخليل

الكود الاول لايعمل

اما الكود الثانى  يعمل بنجاح