منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الاخوة الزملاء 

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

مثلا هذا الكود يفتح ملف او مجلد مباشره
'ShellExecute Me.hWnd, "open", App.Path & "\mans.doc", "", "", 1

اريد رسالة في حال عدم وجوده يعطي رسالة غير موجود الملف........................... وشكرا

(10-11-17, 04:03 AM)Amir_alzubidy كتب : [ -> ]

PHP كود :

If Dir(app.path & "\mans.doc") = "" Then
Msgbox "file not found" 
Exit sub
End if 


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

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


طيب اذا الملف موجود يعطيك رسالة يوجد ملف بنفس الاسم .

(10-11-17, 08:54 PM)عمور2016 كتب : [ -> ]مشكور Amir_alzubidy جزاك الله الف خير 


طيب اذا كان
الملف موجود يعطيك رسالة يوجد ملف بنفس الاسم .

الزين

(11-11-17, 02:46 AM)Amir_alzubidy كتب : [ -> ]السلام عليكم و رحمة الله 
تعديل الكود : 

PHP كود :

If Dir(App.Path & "\mans.doc") = "" Then
MsgBox "File Not Found", vbCritical
Exit Sub
Else
MsgBox "File Found", vbInformation
End If 


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