كود لتشغيل برنامج خارج الآكسس

[alashqar]

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

اشكركم جزيل الشكر على ما تقدموه من علم وأرجوا التكرم بتوضيح كيف اكتب كود لتشغيل برنامج  من على جهاز الكمبيوتر 

مثل وورد او آلة حاسبة فى الآكسيس  ولكم الشكر

[cudi]

وعليكم السلام

هذه الطريقة لتشغيل برنامج خارج الأكسس

    Dim stAppName As String
    stAppName = "C:\WINDOWS\system32\calc.exe"
    Call Shell(stAppName, 1)

هذه الطريقة سوف يشتغل آلة الحاسبة

calc.exe

هو آلة الحاسبة في جهاز الكومبيوتر ، اذا تريد فتح برنامج اخرى ، يجب عليك تغير Calc

مثلا : 

notepad.exe

 

[alashqar]

الله يجزيك كل خير أخي الكريم