تشغيل تطبيق خارجي ( فتح ملف من برنامج مختلف )

[محمد طاهر عرفه]

لفتح أي ملف باستخدام تطبيق محدد استخدم الامر shell

مثلا لفتح ملف txt بالنوت باد

Dim x

   x = Shell("notepad.exe c:\testfile.txt", 1)

حيث الجزء الاول هو الملف التنفيذي للتطبيق و فى حالة البرامج الخارجية عن تطبيقات الويندوز يتم اضافة مسار الملف التنفيذي للبرنامج بالكامل ثم مسافة ثم اسم الملف المطلوب تشغيله أو لتشغيل التطبيق فقط نكتفي بالجزء الاول مثل فتح الالة الحاسبة

Dim RetVal

RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)    ' Run Calculator.

مثلا مسار الملف التنفيذي للاكسيل يختلف بحسب الاصدار مثل

 

Dim ExcelPath

ExcelPath= Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE", 1)


or


 Dim ExcelPath

ExcelPath= Shell("D:\Program Files\Microsoft Office\Office10\EXCEL.EXE", 1)

[محمد طاهر عرفه]

موضوع مرتبط

تشغيل ملف خارجي من الاكسيس - مثال جديد

بدون الحاجة للامر shell

http://www.officena.net/ib/index.php?showtopic=9391