السلام عليكم ورحمة الله وبركاته
اما بعد
فلقد وجدت الكثير من الاستفسارات حول كيفية معرفة اسم المستخدم لجهاز ما او جذر النظام
او القرص SYStem
والعديد من الاستفسارات
وللأسف العديد -- تكون لديهم الاجابة التلقائية --- التوجه إلى API
ولكن لاداعي لكل هذه الاكواد و الاستدعائات فكثرة الاستدعائات تجعل البرنامج -- " ممل " --
وتكثر من الشوائب البرمجية -- "BUGS" وستفاجئ احياناً بالخطأ اللطيف والجميل
Run Time error
على كل حال لا أحب الاطالة
لنرى كيف تعمل الدالة الجميلة والبسيطة
الدالة هي Environ من مكاتب VBA/VB6
الاستخدام فقط نكتفي بكتابة اسم الدالة Environ ثم بين قوسين وعلامتي تنصيص نكتب البارامتر المراد استخدامه لهذه الدالة
لها عدة فوائد
1- الحصول على اسم المستخدم : Environ("UserName") اي البارامتر هنا هو UserName
Eg.
msgbox Environ("UserName")
-----------------------
2- الحصول على قرص النظام : System Drive والمتعارف عليها بين العرب ب C
Environ("HomeDrive")
Eg.
text1.text = Environ("HomDrive")
---------------------------
3- الحصول على مسار النظام c:\windows
Environ("WinDir")
Eg.
Debug.print Environ("WinDir")
-------------------------------------
4- الحصول على مسار Apliction Date
Environ ("APPDATA")
-----------------------------------------
5- الحصول على اسم الجهاز
Environ ("ComputerName")
-------------------------------------------
وهناك العديد من استخدامات هذه الدالة الرائعة
سـأكتفي بهذا القدر
ما اصبت به فمن الله وما اخطأت به فمني
دعواتكم -- اتمنى اني وفقت في تقديم المعلومة







اضافة رد مع اقتباس






المفضلات