تعامل مع الملفات بحرفية ب vb6

[yanes]

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

اخواني ابناء هذا المنتدى لقد لاحظت ان اسئلة كثيرة بين اركان هذا القسم تتمحور
حول التعامل مع الملفات و ادارة البيانات و حفظها على القرص الصلب للرجوع اليها كلما احتاجها
برنامجنا

و معلوم انه لا يمكن ان نكون مبرمجين جادين بدون الاحتراف في هذا المجال

و كنت انوي في الحقيقة ان اترجم لكم احد المقالات من المواقع الاجنبية ثم تراجعت
لاني افتقدت فيها روح البساطة و كذلك اردت لهذا المقال ان يكون بروح و شخصية [b]عربية[/B]
مناسبة لنا


انا بانتظار رايكم في هذا الموضوع للابتداء ب ه

اخوكم في الله يانس

[محمد شريقي]

ابدأ ونحن معاك
الله يوفقك

[abed]

نسأل الله لك الثبات اخى
ابدأ وتوكل على الله

[الخبير]

نعم أخي أنت ابدأ ونحن كلنا معك بإذن الله
توكل على الله وابدء الموضوع

[yanes]

شكرا لكم جميعا
لكن استغرب من الردود يعني الثلاثة اللي ردوا مش ناقصين وين مشاركات المبتدئين
اللي المفروض بكونوا اكثر اهنماما بهذا الدرس
ما علينا

[yanes]

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

سنخصص الجزء الاول للتعريف بخصائص ال FSO ثم سنتقدم بعد ذلك في الدرس


معلوم انه لا يمكن الحديث عن ادارة الملفات بفيجوال بيسك دون الحديث عن الفئة FSO
FILE SYSTEM OBJECT SCRIPTING
التابعة لمكتبة Microsoft Scripting Runtime و هي المكتبة التي اصدرتها مايكروسوفت لتلافي
النقص الذي يعيب الفيجوال بيسك 6 فيما يخص ادارة الاقراص و المجلدات و الملفات
يمكن اضافة هذه المكتبة لمشاريعنا عن طريق اضافة Reference : Microsoft Scripting Runtime
هذه المكتبة يتم تثبيتها افتراضيا مع الفيجوال بيسك

بمجرد اضافة المكتبة المذكورة يصبح بامكاننا انشاء كائن تابع للمكتبة FSO
الطريقة :

الرمز PHP:

Dim ObjFSO As Scripting.FileSystemObject
set ObjFSO=New Scripting.FileSystemObject 


هه آش رايكم في هالمقدمة
انا مش بارع في الشرح عموما ان شاء الله يكون كلامي واضح
و على كل حال اي غموض مستعد اشرحه
من خلال الكائن الذي صرحنا عنه سابقا سيكون بامكاننا انشاء كائنات مشتقة جديدة
هي في الغالب :
الكائن Scripting.Drive
الكائن Scripting.Folder
الكائن Scripting.File
لكل من هذه الكائنات خصائص طرق و احداث كثيرة سناتي عليها او على اكثرها
ان شاء الله
طبعا انا محتاج لمعونة الله ثم الى تشجيعكم لان عزيمتي من النوع Rechargeable
فلا تدعو بطاريتها تنفذ

[d.ezat]

جزاك الله خير .. مع دوام تقديم المزيد

[abed]

المشاركة الأصلية بواسطة yanes

شكرا لكم جميعا
لكن استغرب من الردود يعني الثلاثة اللي ردوا مش ناقصين وين مشاركات المبتدئين
اللي المفروض بكونوا اكثر اهنماما بهذا الدرس
ما علينا

أعزك الله من قال انى عالِم فهو لا يفقه شئ دعك من الاسماء والالقاب
اما عن الشرح ماشا ءالله جميل جدا أخى مع انها صغيرة غير انها مفيده

[yanes]

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

هذا هو الجزء الثاني سندرس فيه باذن الله الكائن Drive
يمكننا FSO من الوصول الى الاقراص بمجرد تعريف الكائن Drive و انشاء نسخة منه

الرمز PHP:

Dim ObjFso As Scripting.FileSystemObject
Set ObjFso = New Scripting.FileSystemObject

Dim Drv As Scripting.Drive 


ناتي الآن الى خصائص هذا الكائن

Driveletter هذه الخاصية تعود بكل بساطة بالحرف الذي يرمز الى القرص
لكنها عود بالحرف فقط و بدون : او \

Path تعود هذه الخاصية بمسار القرص مثلا : "C:"

VolumeName تعود هذه الخاصية باسم القرص مثلا DATAS او SYSTEM او STORAGE

DriveType تعود هذه الخاصية بنوع القرص مثال : "Removable,CDRom,Fixed,Remote,UnknownType, ..."

FileSystem و هو النظام المستخدم لجدولة الملفات ك "NTFS , FAT32 , FAT ,..."

IsReady تشير هذه الخاصية الى جاهزية القرص المعني و عادة تستعمل هذه الخاصية
لمعرفة ما اذا كان هناك قرص داخل سوافة الاقراص هذا مثال على ذلك

الرمز PHP:

Dim ObjFso As Scripting.FileSystemObject
Set ObjFso = New Scripting.FileSystemObject

Dim Drv As Scripting.Drive
For Each Drv In ObjFso.Drives
    If Drv.DriveType = CDRom Then
        If Drv.IsReady Then
            MsgBox "There is a CDRom disk in " & Drv.DriveLetter
        Else
            MsgBox "The CDRom Driver " & Drv.DriveLetter & "  contain no disk " & Chr(13) & "Please Insert Disk in this driver and Retry !"
        End If
    End If
   
Next Drv 


TotalSize تعود هذه الدالة بالحجم الجملي للقرص

AvailableSpace ترجع هذه الدالة قيمة المساحة المتوفرة اي الفارغة على القرص

FreeSpace هذه الدالة تعمل كسابقتها

SerialNumber تعود هذه الدالة بالرقم التسلسلي للقرص و هذه الدالة قد تفيدنا في
عمل حماية لبرامجنا عن طريق توليد شفرة التسجيل الخاصة بالحاسوب الذي يعمل عليه
برنامجنا و ليس هنا مقام مناسب للتعمق في هذا الامر

RootFolder ينشا عن هذه الخاصية كائن من نوع Folder يحمل المسار الاصلي للقرص


هناك بعض الامثلة في المرفقات حاولت انها تكون بسيطة للغاية
و لاي سؤال انا بالخدمة
اضافات
يمكننا استعمال الدالة DriveExists للتاكد من وجود القرص المطلوب و هكذا نتجنب اخطاء
التنفيذ الناتجة من هذا الباب يمكن عمل ذلك كالآتي

الرمز PHP:

Dim ObjFso As Scripting.FileSystemObject
Set ObjFso = New Scripting.FileSystemObject

Dim Drv As Scripting.Drive

if ObjFso.DriveExists("C)  then
msgbox "Drive installed Correctly" else
msgbox "Drive not found" 
End if 


و يا ريت من يجدخطا او عنده اضافة يتحفنا بها و ما يحرمنا

[yanes]

يا شباب اذا ما عجبكم الموضوع قولولي :confuse d:
على الاقل ما اتعب نفسي
اترك الموضوع ??

[mnimortal]

المشاركة الأصلية بواسطة yanes

يا شباب اذا ما عجبكم الموضوع قولولي :confuse d:
على الاقل ما اتعب نفسي
اترك الموضوع ??

ولماذا تتركه أكمل جزاك الله خير ممممممممممممممممممممممممممممممممممتاز :d

[me&vb]

يا أخي الموضوع روعة رغم أن تقنية الدوت نت أتت بأشياء أخرى مدهلة لكن واصل فموضوعك غاية في الأهمية

[yanes]

شكرا على هذه الكلمات اللطيفة لكن الظاهر ان الجماعة انحلت مشاكلهم من هذه الناحية :d

[Lion_Ksa]

Rechargeable

hahahaha
please , when you start be hard to stop
go on
keep explain Man
your's

[دمية الثلج]

شكرا لكم

[yanes]

مشكورين جميعا ان شاء الله نكمل الجزء الخاص باحتراف التصرف في المجلدات قريبا
ثم نكمل مع الملفات

[yanes]

بسم الله الرحمان الرحيم
هذا هو الجزء الثالث من الدرس الخاص بمكتبة ال FSO للتعامل مع الاقراص المجلدات و الملفات
اعتذر عن التاخر بمتابعة هذا الدرس لاني كنت مشغولا خلال الايام الماضية

سنتعرض اليوم الى التعامل مع المجلدات لنصل اخيرا الى ادارة الملفات

تتعامل هذه المكتبة مع الكائنات التابعة لها بطريقة هرمية على الشكل التالي
(الصورة في المرفقات)

لذلك يمكن الدخول الى المجلدات مباشرة من خلال تعريفه بالطريقة التالية

الرمز PHP:

Dim FSOobj As Scripting.FileSystemObject
Dim Fldobj As Folder

Set FSOobj = New Scripting.FileSystemObject

Set Fldobj = FSOobj.GetFolder("C:\Windows\system32")
With Fldobj
 MsgBox "Our path is : " & .Path & Chr(13) & "It's size = " & .Size & Chr(13) & "Created : " & .DateCreated
End With 


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

الرمز PHP:

Dim FSOobj As Scripting.FileSystemObject
Dim DrvObj As Drive
Dim FldObj As Folder

Set FSOobj = New Scripting.FileSystemObject

Set DrvObj = FSOobj.GetDrive("C")

Set FldObj = DrvObj.RootFolder.SubFolders("Windows")
Set FldObj = FldObj.SubFolders("system32")
MsgBox "Our path is : " & FldObj.Path & Chr(13) & "It's size = " & FldObj.Size & Chr(13) & "Created : " & FldObj.DateCreated 


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

الرمز PHP:

Dim FSOobj As Scripting.FileSystemObject
Set FSOobj = New Scripting.FileSystemObject

If FSOobj.FolderExists("C:\Windows\system32") = False Then
   MsgBox "Folder not found"
   
Else
    Set FldObj = FSOobj.GetFolder("C:\Windows\system32")
    MsgBox FldObj.Path
End If
End Sub 


للملفات في هذه المكتبة خصائص كثيرة نستعرض هنا أهمها
Name و هذا هو الأسم المجرد للمجلد
Path وهو المسار الكامل للمجلد
Type تعود بنوع المجلد و تحمل غالبا القيمة FileFolder
Size تعود هذه الخاصية بالحجم الجملي للمجلد بالبايت
SubFolders و هي مجموعة اي Collection نمر من هذه الخاصية ااوصول الى المجلدات الفرعية
Files و هي مجموعة اي Collection نمر من هذه الخاصية ااوصول الى الملفات
سنرى امثلة لاستخدام المجموعات مع هذه الخاصيات
Drive تعود هذه الخاصية بكائن من النوع يعرف القرص الموجود عليه مجلدنا
DateCreated تاريخ انشاء المجلد
DateLastModified تاريخ أخر تديل طال هذه المجلد
DateLastAccessed تاريخ آخر دخول الى المجلد
هذه كنت اهم خصائص المجلدات و معلوم ان هناك خصائص اخرى قد تتعرف عليها بنفسك عزيزي عندما تتعمق في دراسة هذه المكتبة

نأتي الأن الى الطرق التي يمكن استعمالها مع المجلدات
الدالة Copy تنسخ الملف الرسل اليها الى المسار الذي تريد كالآتي

الرمز PHP:

FldObj.Copy "C:\Windows", True 


انتبه الى ان True في أخر التعليمة تعني ان OverWriteFiles ستعوض اي مجلد بنفس الاسم في
المسار الذي سننقل اليه مجلدنا فاذا وجد هذا و كانت قيمة OverWriteFiles هي False فان خطأ
في التنفيذ سيحصل
او ببساطة

الرمز PHP:

FSOobj.MoveFolder "C:\Test ", "C:\Test2" 


الدالة Move تنقل المجلد الى المسار المطلوب مثال
FldObj.Move "C:\Windows" 'Syntax
او

الرمز PHP:

FSOobj.MoveFolder "C:\Test ", "C:\Test2" 


الدالة Delete تنهي ببساطة حياة مجلدنا المسكين
FSOobj.DeleteFolder "C:\Test ", False
يحدث خطأ عند محاولة مسح مجلدات الAttribute ReadOnly
لذا نحول ال False الى True ليتم القضاء على المجلد حتى وهو ReadOnly
هذه تقريبا اهم الدوال-الطرق للمجلدات
سارفق لكم مثالا لكل هذه الدوال لمزيد التوضيح

لكل استفسار او غموض انا جاهز

ارجو فقط ان تستفيدوا و تستغفروا لي
و الله الموفق

[ksh_mag]

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

[yanes]

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

مشكور مرة أخرى

[الاستاذ سائد]

كمل يا كبير نحن في انتظار المزيد

[yanes]

جزاك الله خيرا اخي العزيز الاستاذ سائد