لدى كود يقوم بتشغيل برنامج
Shell ("c:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE C:\Goldenaccountant\Backup.mdb"), vbNormalNoFocus
ومشكلة هذا الكود انه لا بد من وجود نسخة الوندوز على c اريد تعديلة بحيث اذا تغيرت مسار الوندوز على اى بارتشن يتعرف على الكود
.gif)
السلام عليكم .....
أخى العزيز تفضل الكود وارجوا ان يكون المطلوب
Dim X As String
X = Environ$("PROGRAMFILES")
Shell (X & "Microsoft Office\OFFICE11\MSACCESS.EXE C:\Goldenaccountant\Backup.mdb"), vbNormalNoFocusواعتقد ان الكود سهل ولا يحتاج شرح
وشكرا......
تم تعديل هذه المشاركة بواسطة usa2010 في 20 مايو 2009 في 15:45
فى يوم من الأيام...............
فى ساعة من الساعات.......
فى ثانية من الثوانى..........
سيرجع المجد ثانياً للأمة الإسلامية فأرجوا من الله أن نكون أحياء فى هذا الوقت.
الف مليون شكر اخى الفاضل تم بنحاج بعد اضافة \ قبل Microsoft
Dim X As String
X = Environ$("PROGRAMFILES")
Shell (X & "\Microsoft Office\OFFICE11\MSACCESS.EXE C:\Goldenaccountant\Backup.mdb"), vbNormalNoFocus
جزاك الله خيرا