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

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

اذهب الى الأسفل

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

مُساهمة من طرف أحمد مناع الأربعاء 7 أغسطس 2013 - 9:55

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

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

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

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

 التعامل مع الملفات والمجلدات و الاقراص من خلال الكائن File System Object  Image001
التعامل مع الملفات والمجلدات و الاقراص من خلال الكائن File System Object  Image002
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
المساهمات : 1108
النقاط : 202034
التقيم : 144
الدولة : مصر
الجنس : ذكر

https://egy-tech.forumegypt.net

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

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

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

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

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

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

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

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

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

تاريخ التسجيل : 18/02/2011
المساهمات : 85
النقاط : 160
التقيم : 11
الجنس : انثى

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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