VB 0.6 Copy, Paste, Cut and Create Folders

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

درس اليوم هو فى التعامل مع المجلدات و الملفات باستخدام الفيجوال بيزك 6 بالنسخ و القطع و اللصق

أولا : للتعامل مع FSO او File System Objects يجب اضافة الـــ Reference الخاص به الى المشروع ... كما بالصورة :

ثانيا :  تعريف المتغير المسؤل عن التعامل مع مكتبة الـــ FSO و ليكن FsoBj و يكون  الكود معرف على مستوى المشروع فى منطقة الـــ General Declaration و ذلك  حتى يكون لنا مطلق الحرية فى التعامل معه فى أى مكان بالكود .

Dim FsoBj as New FileSyaytemObject

تتكون المكتبة من الكائنات (Objects) الاتية :

Object	Description
FileSystemObject (FSO)	و هو اعلى الكائنات فى مكتبة الــ FSO و هو يسمح للمبرمج التعامل مع الملفات و المجلدات و الدرايفات كما يشاء و ينشىء مجلدات و يتأكد من وجود درايف من عدمه و ينقل الملفات الى مكان
Drive	و هو الكائن المسؤل عن اختبارات البيانات التى تتعلق بالدرايفات سواء كانت على نفس الكمبيوتر او على الشبكة و ايضا التعامل مع الـــ CD ROM/RAM
File object	و هو الكائن المسؤل عن التعامل مع الملفات و التى تمثل الكيان المادى لما هو بالفولدرات
Folder object	و هو الكائن المسؤل عن التعامل مع المجلدات و ما تحتوية من مجلدات فرعية.
TextStream object	و هو الكائن المسؤل عن قراءة و كتاية الملفات النصية txt.*

خصائص الكائن F S O :

اولا : DRIVE : يعود بقيمة مجموعة الدرايف المشار اليها .

طرق التعامل مع الـــ FSO :

Object	Description
BuildPath	اضافة امتداد ملف الى امتداد ملف موجود بالفعل
CopyFile	نسخ ملف من مكانه الى مكان اخر
CopyFolder	نسخ مجلد من مكانه الى مكان أخر.
CreateFolder	انشاء مجلد
CreateTextFile	انشاء ملف نصى *.txt و تخزين قميتة (محتواه)
DeleteFile	حذف ملف
DeleteFolder	حذف مجلد
DriveExists	التأكد من وجود درايف من عدمة
FileExists	التأكد من وجود ملف من عدمة
FolderExists	التأكد من وجود المجلد من عدمة
GetAbsolutePathName	يعود بقيمة مسار الملف أو المجلد كاملا
GetBaseName	Returns the base name of a file or folder.
GetDrive	يعود بقيمة الدرايف
GetDriveName	يعود بأسم الدرايف
GetExtensionName	يعود بامتداد ملف عن طريق معرفة مساره
GetFile	تخزين ملف فى متغير كملف
GetFileName	يعود باسم ملف
GetFolder	يعود بقيمة المجلد
GetParentFolderName	يعود بقيمة المجلد الرئيسى للمجلد
GetSpecialFolder	Returns an object pointer to a special folder.
GetTempName	Returns a temporary (randomly generated) file or folder name that can be used with CreateTextFile.
MoveFile	ينقل الملف (قص)
MoveFolder	ينقل المجلد (قص)
OpenTextFile	فتح ملف نصى و العودة بقيمة محتواه (النص)

• طريقة التعامل مع الدرايف : 

Object	Description
AvailableSpace	المساحه المتوفرة
DriveLetter	الحرف المميز للدرايف مثل (C)
DriveType	قيمة رقمية لنوع الدرايف و عادة ما تكون كالتالى :  0 (Unknown), 1 (Removable), 2 (Fixed),  3 (Remote), 4 (CD-ROM)  5 (RAM Disk).
FileSystem	متغير نصى يحدد نوع ملف النظام للدرايف مثل  ("FAT", "FAT32", "NTFS", etc.).
FreeSpace	تماما مثل AvailableSpace
IsReady	تعود القيمة (True/false) على ما اذا كان الدرايف جاهز أم لا
Path	متغير نصى يحدد مسار الدرايف مثل (/:C)
RootFolder	المجلد الرئيسى للدرايف
SerialNumber	يعود متغير رقمى من نوع Long عارة عن قيمة رقم الدرايف التسلسلى
ShareName	الاسم الذى يحملة الدرايف على الشبكة المحلية
TotalSize	حجم الدرايف بالبايت Byt
VolumeName	حجم الداريف

• خصائص الملفات :

الخاصية	الوصــــف
Attributes	متغير رقمى يعود بقيمة خصائص الملف و تكون كالتالى  0 (Normal),  1 (ReadOnly),  3 (Hidden),  4 (System), 8 (Volume),  16 (Directory), 32 (Archive),  64 (Alias),  128 (Compressed).
DateCreated	تاريخ انشاء الملف
DateLastAccessed	تاريخ اخر مرة تم التعامل مع الملف بالفتح
DateLastModified	تاريخ اخر مرة تم التعامل مع الملف بالتعديل
Drive	الحرف المميز للدرايف الذى يوجد به الملف (C)
Name	اسم الملف
ParentFolder	المجلد الرئيسى للملف
Path	مسار الملف
ShortName	اسم مختصر للملف على طريق الدوس
ShortPath	وصف مختصر لمسار الملف كما بالدوس
Size	حجم الملف بالبايت Byt
Type	نوع الملف (Microsoft Word Document)

• طريقة التعامل مع الملفات :

الطريقة	الوصف
Delete	حذف الملف
Move	نقل الملف (قص)
Copy	نسخ الملف
CreateTextFile	تعود بقيمة TextStream تدفق للنص كمتغير للتعامل مع ملف تم انشاءه الان
OpenAsTextStream		فتح ملف موجود بالفعل و تخزين محتواه TextStream

• خصائص التدفق النصى TextStream:

الخاصية	الوصــــف
AtEndOfLine	متغير (true/false) يوضح ما اذا كان المؤشر وصل لنهاية الملف أم لا و تفضل استخدامها عند قراءة الملف ككل
AtEndOfStream	متغير (true/false) يوضح ما اذا كان المؤشر وصل لنهاية الملف أم لا و تفضل استخدامها عند قراءة الملف سطر سطر
Column	رقم العمود الذى يوجد به الحرف فى الـــ TextStream
Line	رقم السطر الذى يوجد به الحرف فى الـــ TextStream

• طريقة التعامل مع التدفق النصى TextStream:

الطريقة	الوصــــف
Close	اغلاق تدفق نصى مفتوح
Read	قراءة عدد من الحروف فى نص معين و تعود القيمة كمتغير نصى
ReadAll	قراءة جميع (كافة) النص و تعود القيمة كمتغير نصى
ReadLine	قراءة سطر كامل
Skip	تجاهل قراءة عدد معين من الحروف عند قراءة النص
SkipLine	تجاهل قراءة عدد معين من السطور عند قراءة النص
Write	كتابة نص معين فى النص
WriteLine	كتابة سطر جديد بعد نهاية النص
WriteBlankLines	انشاء سطر جديد فارغ

و الان مع المثال العملى و الاكواد ...... انتظرونا فى الدرس الثانى بالصور ان شاء الله تعالى

Visual Basic 6.0 Lessons, Tricks, Tutorials and help links :

- Automate MS-Access Database in Visual Basic 6.0 though a network

- Visual Basic 6.0 Analog Clock

- Visual Basic 6.0 Temperature Convertor

- Visual Basic 6.0, MS-Access 2003 and Crystal Reports - Phone book

- Visual Basic 6.0, MS-Access 2003 Database and DataGrid

- Visual Basic 6.0  FTP full application source code

- Visual Basic 6.0 Color Picker tool source code