هذا الموضوع هو عباره عن شرح لبعض أستخدامات المكتبه 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

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