التعامل مع الملفات والمجلدات و الاقراص من خلال الكائن File System Object

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

التعامل مع الملفات والمجلدات و الاقراص من خلال الكائن File System Object

مُساهمة من طرف أحمد مناع في الأربعاء أغسطس 07, 2013 3:55 pm

بسم الله الرحمن الرحيم

أهلا وسهلا بكم اخوانى الكرام ....درس اليوم إن شاء الله تعالى عن كيفية أستخدام المكتبة Microsoft Scripting Runtime.......حيث توفر لنا الكائن (FSO) File System Object و الذى يتيح لنا من الخصائص والأساليب التى تمكنك من التعامل مع الملفات و المجلدات مثل إنشاء، وتحريك و نقل، وحذف، وكما يوفر المعلومات حول المجلدات والملفات مثل تاريخ الانشاء و حجم المجلد أو الملف ....الخ. كما يوفر الكائن FSO طرق لقراءة وكتابة ملفات نصية متسلسلة، ولكن ليس لديها وسائل لمعالجة الملفات الثنائية أو االعشوائية .

ولكى تستطيع أستخدام طرق و خصائص تلك المكتبة أتبع الخطوات التالية :

1_ قم بإنشاء مشروع قياسى جديد
2_ قم بادراج المكتبة Microsoft Scripting Runtime و ذلك من خلال القائمة project ثم أختر reference و من القائمة التى ستظهر حدد المكتبة .....كما فى الصور التالية :

 
3_بعد ما قمنا بفعل ما ذكرناه أعلاه، يمكنك استخدام FSO في مشروعك و كتابة التعليمات البرمجية على النحو التالى :

أ_ يجب أن تقوم بتعريف أو الاعلان عن متغير كائن جديد للكائن FSO و إنشاء مثيل له على النحو التالى :
الرمز:
Dim fso As New Scripting.FileSystemObject

 _كما يمكنك أستخدام طريقة بديلة للقيام بذلك وهى أن تعلن عن المتغير FSO دون الكلمة الأساسية "New" و إنشاء مثيل في وقت لاحق مع الامر "SET"، كما هو مبين أدناه. 
الرمز:
Dim fso As Scripting.FileSystemObject

 ...

 Set fso = New Scripting.FileSystemObject

ب_ تعالوا الان نتعرف على الطرق الأكثر استخداما للكائن FileSystemObject......وذلك على النحو التالى :

_ الطريقة CreateFolder و التى تستخدام لانشاء مجلد ......بأستخدام الشفرة التالية 
الرمز:
fso.CreateFolder "C:\Files"

_ الطريقة CreateTextFile تقوم بإنشاء ملف نصى وإرجاع كائن TextStream التي يمكن استخدامها لقراءة من أو الكتابة إلى ملف ...مثال :
الرمز:
fso.CreateTextFile "C:\Files\file1.txt"

_ الطريقة DeleteFolder و التى تقوم بحذف مجلد ....مثال :
الرمز:
fso.DeleteFolder "C:\Files"

_الطريقة DeleteFile و التى تقوم بحذف ملف ....مثال :
الرمز:
fso.DeleteFile "C:\Files.file.txt"

_ الطريقة CopyFolder و التى تقوم بنسخ مجلد الى مسار معين ....مثال :
الرمز:
fso.CopyFolder "C:\Files", "D:\Files_Copy"

_ الطريقة CopyFile و التى تقوم بنسخ ملف الى مسار معين ....مثال :
الرمز:
fso.CopyFile "C:\Files\file.txt", "C:\Files\file_copy.txt"

_ الطريقة MoveFolder و التى تقوم بنقل مجلد الى مسار معين ....مثال :
الرمز:
so.MoveFolder "C:\Files", "D:\Files Move"

_ الطريقة MoveFile و التى تقوم بنقل ملف الى مسار معين ....مثال :
الرمز:
fso.MoveFile "C:\Files\file.txt", "D:\Files\file_move.txt"

_ الطريقة GetDrive و التى تسمح بالحصول على مختلف المعلومات حول محرك الأقراص، مثل المساحة المتوفرة، حرف محرك الأقراص،  نظام الملفات، المساحة الحرة، والرقم التسلسلي، اسم المشاركة، إجمالي حجم القرص ....مثال :
الرمز:
fso.GetDrive("C") AvailableSpace

_الطريقة DriveExists و التى تستخدم للتحقق من وجود قرص معين من عدمه .....مثال :
الرمز:
If fso.DriveExists("D") Then
    MsgBox "Drive D found"
 End If

_ الطريقة GetFolder و التى تقوم بإرجاع كائن المجلد المطابق للمجلد في المسار المحدد ...مثال :
الرمز:
fso.GetFolder(app.Path)

_ الطريقة GetParentFolderName و التى تقوم إرجاع سلسلة نصية تحتوي على اسم المجلد الأصل من عنصر آخر في المسار المحدد ....مثال :
الرمز:
fso.GetParentFolderName(app.Path)

_الطريقة GetSpecialFolder و التى تقوم بارجاع مجلد خاص المحدد. و تأخذ ثلاثة خيارات: WindowsFolder (يحتوي على الملفات المثبتة من قبل نظام التشغيل ويندوز)، SystemFolder (يحتوي على الخطوط، والمكتبات، وبرامج تشغيل الأجهزة)، أو TemporaryFolder (التي تستخدم لتخزين الملفات المؤقتة) ....مثال :
الرمز:
fso.GetSpecialFolder(TemporaryFolder)

_ الطريقة GetFile و التى تقوم بإرجاع كائن الملف الموافق الملف في المسار المحدد ....مثال :
الرمز:
fos.GetFile "C:\Files\file.txt"

_ الطريقة FolderExists و التى تستخدم للتحقق من وجود مجلد ....مثال :
الرمز:
If fso.FolderExists("C:\Files") Then
    MsgBox "Folder Exists!"
 End If

_ الطريقة FileExists و التى تستخدم للتحقق من وجود ملف فى مسار معين .....مثال :
الرمز:
If fso.FileExists("C:\Files\file.txt") Then
    MsgBox "File Exists!"
 End if



و الى هنا نكون قد أنتهينا من هذا الدرس الى اللقاء فى درس جديد أن شاء الله تعالى 

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

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

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 810
النقاط : 1479
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

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

رد: التعامل مع الملفات والمجلدات و الاقراص من خلال الكائن File System Object

مُساهمة من طرف مدونة وليدوف التطويرية في السبت أغسطس 10, 2013 8:18 am

درس قيم و شرح ممتاز .....الله يكرمك الاخ احمد

مدونة وليدوف التطويرية
...
...

تاريخ التسجيل : 22/11/2011
المساهمات : 32
النقاط : 47
التقيم : 3
الدولة : مصر
الجنس : ذكر

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

رد: التعامل مع الملفات والمجلدات و الاقراص من خلال الكائن File System Object

مُساهمة من طرف بنت البلد في الإثنين أغسطس 12, 2013 7:59 am

بسم الله ما شاء الله ... نقلة جميلة وموفقة بأذن الله ... بارك الله فيك .. هذة المقالة مفيدة جدا للكثير خصوصا انا

بنت البلد
....
....

تاريخ التسجيل : 18/02/2011
المساهمات : 66
النقاط : 126
التقيم : 6
الجنس : انثى

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

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


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