+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [كود] سؤال في كود استخراج او فتح ملف (/showthread.php?tid=22481)
سؤال في كود استخراج او فتح ملف - عمور2016 - 10-11-17
الاخوة الزملاء
السلام عليكم ورحمة الله وبركاته
كود محيرني
مثلا هذا الكود يفتح ملف او مجلد مباشره
'ShellExecute Me.hWnd, "open", App.Path & "\mans.doc", "", "", 1
اريد رسالة في حال عدم وجوده يعطي رسالة غير موجود الملف........................... وشكرا
RE: سؤال في كود استخراج او فتح ملف - عمور2016 - 10-11-17
(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 جزاك الله الف خير
RE: سؤال في كود استخراج او فتح ملف - عمور2016 - 10-11-17
مشكور Amir_alzubidy جزاك الله الف خير
طيب اذا الملف موجود يعطيك رسالة يوجد ملف بنفس الاسم .
RE: سؤال في كود استخراج او فتح ملف - amer2000 - 11-11-17
(10-11-17, 08:54 PM)عمور2016 كتب : مشكور Amir_alzubidy جزاك الله الف خير
طيب اذا كان
الملف موجود يعطيك رسالة يوجد ملف بنفس الاسم .
الزين
RE: سؤال في كود استخراج او فتح ملف - amer2000 - 11-11-17
(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