طريقة استخدام مكتبة Microsoft Scripting Runtime

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

طريقة استخدام مكتبة Microsoft Scripting Runtime

مُساهمة من طرف جورج صبحى في الإثنين فبراير 27, 2012 7:29 am

هذا الموضوع هو عباره عن شرح لبعض أستخدامات المكتبه Microsoft Scripting Runtime
هذه الأكواد لن تعمل إلا بتحميل المكتبه


لتحميل المكتبه نقوم بفتح قائمه project
ثم نقوم باختيار references
ثم نختار المكتبه Microsoft Scripting Runtime

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



أولا نقوم بتعريف متغير عام


الرمز:
Dim Fsys As New FileSystemObject



لمعرفه سريال نمبر لأى درايف نستخدم الكود التالى



الرمز:
MsgBox Fsys.Drives("c").SerialNumber

ويمكن وضع اى درايف اخر غير السى



لمعرفه عدد الدرايفات الموجوده



الرمز:
MsgBox Fsys.Drives.Count



لمعرفه نوع الدرايف هل هو32 NTSF , FAT





الرمز:
Label1.Caption = Fsys.Drives.Item("C").FileSystem


ويمكن وضع اى درايف اخر غير السى C



أما للتأكد من وجود ملف


الرمز:
Label1.Caption = Fsys.FileExists("Project1.vbp")



ويمكن وضع أى ملف أخر مكان هذا الملف Project1.vbp





لعمل مجلد جديد



الرمز:
Fsys.CreateFolder "Genius"

يكتب أسم المجلد مكان genius





للتأكد من وجود مجلد


الرمز:
Label2.Caption = Fsys.FolderExists("Genius")



لنسخ ملف


الرمز:
Fsys.CopyFile "form1.frm", "myform.frm"



نكتب مكان form1 أسم الملف المراد نسخه ومكان myform الأسم المراد النسخ به



لنسخ مجلد

الرمز:
Fsys.CopyFolder "Genius", "ahmed"



نكتب مكان Genius أسم المجلد المراد نسخه ومكان AHMED الأسم المراد النسخ به



لحذف ملف


الرمز:
Fsys.DeleteFile "Myform.frm"



و لحذف مجلد



الرمز:
Fsys.DeleteFolder "Genius"


مرفق لكم مثال يوضح استخدام مكتبة Microsoft Scripting Runtime

الدرس منقول للفائدة


MS_Scripting_Runtime.rar

جورج صبحى
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 98
النقاط : 211
التقيم : 3
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى