طريقة استخدام مكتبة 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
avatar
جورج صبحى
.....
.....

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

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

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


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