التعامل مع الملفات والمجلدات و الاقراص من خلال الكائن File System Object
صفحة 1 من اصل 1 • شاطر
التعامل مع الملفات والمجلدات و الاقراص من خلال الكائن File System Object
بسم الله الرحمن الرحيم
أهلا وسهلا بكم اخوانى الكرام ....درس اليوم إن شاء الله تعالى عن كيفية أستخدام المكتبة Microsoft Scripting Runtime.......حيث توفر لنا الكائن (FSO) File System Object و الذى يتيح لنا من الخصائص والأساليب التى تمكنك من التعامل مع الملفات و المجلدات مثل إنشاء، وتحريك و نقل، وحذف، وكما يوفر المعلومات حول المجلدات والملفات مثل تاريخ الانشاء و حجم المجلد أو الملف ....الخ. كما يوفر الكائن FSO طرق لقراءة وكتابة ملفات نصية متسلسلة، ولكن ليس لديها وسائل لمعالجة الملفات الثنائية أو االعشوائية .
ولكى تستطيع أستخدام طرق و خصائص تلك المكتبة أتبع الخطوات التالية :
1_ قم بإنشاء مشروع قياسى جديد
2_ قم بادراج المكتبة Microsoft Scripting Runtime و ذلك من خلال القائمة project ثم أختر reference و من القائمة التى ستظهر حدد المكتبة .....كما فى الصور التالية :
أ_ يجب أن تقوم بتعريف أو الاعلان عن متغير كائن جديد للكائن 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
و الى هنا نكون قد أنتهينا من هذا الدرس الى اللقاء فى درس جديد أن شاء الله تعالى
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: التعامل مع الملفات والمجلدات و الاقراص من خلال الكائن File System Object
درس قيم و شرح ممتاز .....الله يكرمك الاخ احمد
مدونة وليدوف التطويرية- ...
- تاريخ التسجيل : 22/11/2011
المساهمات : 32
النقاط : 48
التقيم : 4
الدولة :
الجنس :
رد: التعامل مع الملفات والمجلدات و الاقراص من خلال الكائن File System Object
بسم الله ما شاء الله ... نقلة جميلة وموفقة بأذن الله ... بارك الله فيك .. هذة المقالة مفيدة جدا للكثير خصوصا انا
بنت البلد- .....
- تاريخ التسجيل : 18/02/2011
المساهمات : 85
النقاط : 160
التقيم : 11
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الأحد 17 مارس 2024 - 7:52 من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد 17 مارس 2024 - 7:25 من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد 17 مارس 2024 - 7:09 من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد 17 مارس 2024 - 6:54 من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد 17 مارس 2024 - 6:36 من طرف رانيا حماد
» أفضل فني سباك بالرياض ممتاز بالرياض | اتصل الآن
الأحد 17 مارس 2024 - 6:25 من طرف رانيا حماد
» افضل شركة تنظيف اثاث بالرياض تنظيف كنب واجهات حجر بخصم 40%
الأحد 17 مارس 2024 - 5:52 من طرف رانيا حماد
» افضل شركة تنظيف فلل بالرياض | الانوار
الأحد 17 مارس 2024 - 5:22 من طرف رانيا حماد
» افضل شركة تنظيف واجهات زجاج بالرياض 30% خصم
الأحد 17 مارس 2024 - 4:38 من طرف رانيا حماد
» افضل شركة نقل عفش بالكويت بخصم 20%
الخميس 14 مارس 2024 - 7:36 من طرف رانيا حماد