VB 0.6 Copy, Paste, Cut and Create Folders

Visual Basic 6 By

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

Microsoft Visual Basic 6.0

VB6 FSO File System Object

درس اليوم هو فى التعامل مع المجلدات و الملفات باستخدام الفيجوال بيزك 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, vb6 source code,vb6 tutorials
                        Egyptian Financial Accountant since 2005.

                        Comments

                        Post a Comment

                        VB6 Popular Posts

                        Visual Basic Online Course - Excel 2003 Part 1

                        21 comments Visual Basic 6 By
                        Image
                        بسم الله الرحمن الرحيم الموضوع : التعامل مع الأكسل 2003 من خلال الفيجوال بيزك 6 MS VB6 Excel الأجـــــــــــــــزاء  : انشاء ملف اكسل جديد و حفظه . فتح و تعديل و حفظ ملف اكسل استيراد البيانات من الأكسل تصدير البيانات الى الاكسل طباعة الاكسل بعض الموضوعات الهامه فى التعامل مع الـ Excel من خلال الـ Visual Basic 6.0 مشروع عملى على التعامل مع الاكسل و نبدأ بسم الله الجزأ الأول ....   الجـــــــــزء الأول - انشاء ملف اكسل جديد قبل الشروع فى انشاء ملف Excel جديد و حفظه فى مجلد Folder باسم معين Save As يجب أن نتعرف على جزئين هما : نظره سريعه على مكونات Excel 2003 : انظر الصورة التاليه ... Quick look at MS-Excel 2003   2.   التعرف على مكتبة الـ Excel الموجوده داخل الـ Visual Basic 6.0 : المكتبة اسمها Microsoft Excel 11.0 Object Liberary و هى المختصه بالتعامل مع نسخة الـ Excel 2003 و هناك مكتبات للتعامل مع نسخ الـ Excel المختلفه على حسب الاصدار مثل : اذا كنت تريد التعامل مع نسخة Microsoft Office Excel 2007 ت...
                        Visual Basic 6.0

                        VB 6.0 - Save/Retrieve Images From Access Database

                        Visual Basic 6 By
                        Image
                        بسم الله الرحمن الرحيم طريقة حفظ صورة فى قاعدة يانات اكسس و استرجاعهـــــــــــــا مرة أخرى عن طريق vb6 How to Save/Retrieve Pictures To/From Access DB Using VB 0.6 أولا : شكل الفورم النهائى قم بتصميم مشروع عبارة عن Form1 و ضع عليها الادوات (Command1 و Image1 و Command2و Command3) وظيفة الـــ Command1 هى حفظ الصورة و بالتالى تكون وظيفة الـــ Command2 هى استرجاع الصورة من قاعدة البيانات و الـــ Command3 لاختيار صورة من الكمبيوتر لعرضها و الــــ Image1 لعرض الصورة المراد حفظها و التى سيتم استرجاعها. قم بحفظ المشروع انشاء قاعدة البيانات باسم Mydb.mdb و وضعها فى فولدر المشروع (كما هو دائما متبع) انشاء جدول باسم MyTbl عبارة عن عدد (2) حقل الاول باسم Img نوعه OLE و الثانى باسم ImgSz و نوعه Number Integer قم بحفظ قاعدة البيانات و الجدول من المشروع نستدعى مكتبة ADO النسخة 2.8 او اى نسخه المنطقية : ما سنقوم بعمله هو كالاتى ( عمل متغيرين الاول من نوع Long و اسمة ImgLen ووظيفتة هى تخزين قيمة حجم الصورة المراد تخزينها فى قاعدة البيانات , و ال...
                        Visual Basic 6.0

                        Visual Basic Online Course - ProgressBar Colors

                        455 comments Visual Basic 6 By
                        Image
                        Visual Basic Online Course How to change the ProgressBar colors by code Progressbar The ProgressBar control in Visual Basic 6.0 is replaced by the Windows Forms ProgressBar control in Visual Basic 2005. The names of some properties, methods, events, and constants are different, and in some cases there are differences in behavior. Conceptual Differences Negotiate Property In Visual Basic 6.0 , the Negotiate property of a ProgressBar control can be used to automatically hide the control when a toolbar is displayed. The Visual Basic 2005  ProgressBar control does not have a Negotiate property; you can achieve the same effect by setting the Visible property to  false at run time. Orientation Property In VB 6 , a Progress Bar control can be displayed either horizontally or vertically by setting the Orientation property. The Visual Basic 2005  ProgressBar control can only be displayed horizontally. Create New (Module) Then in...
                        Visual Basic 6.0

                        Free download Visual Basic 6 Documentation MSDN

                        Visual Basic 6 By
                        Image
                        Free download Visual Basic 6 Documentation MSDN Free download Visual Basic 6 Documentation MSDN What is visual basic 6 MSDN ? It stands for Microsoft Developer Network. How is VB6 MSDN useful ? It is a collection of sites ( msdn.microsoft.com ) for the developer community that provide information, documentation, and discussion that is authored both by Microsoft and by the community at large. Recently. It is available in many languages. Online Visual Basic 6 (vb6) MSDN link at Microsoft.  Here Online Visual Basic 6 (vb6) MSDN previous version .  Here Download Visual Basic 6 (vb6) MSDN. vb6 MSDN CD1 (DN60AENU1) zip  109.05MB(Password: vb6access2003.blogspot.com) vb6 MSDN CD2 (DN60AENU2) zip  537.32MB (Password: vb6access2003.blogspot.com) Download Visual Basic 6 (vb6) Samples.  Here Download Lou Tylee best seller book - VB 0.6.pdf  Here ♥ 🔥 Explore More Tutorials 🔥 ⏲️ VB6 Analog Clock Project 💥 Part1, learn Micro...
                        Visual Basic 6.0

                        VB 6.0 with MS-Access 2003 Copy a record from table to another

                        Visual Basic 6 By
                        Image
                        VB 6.0 with MS-Access 2003 Copy a record from table to another Copy record from table to another table المثال التطبيقى ( MediaFire Link ) الشــــــــــــــــــــــــــــــــــــــــرح 1) قاعدة البيانات : Database Access 2003 with (4) tables with same records count and properties (3 copies of the original) المشروع به قاعدة بيانات اكسس 2003 و عدد (4) جداول لها نفس عدد السجلات و نفس الاسماء و الخصائص اى انها نسخة من بعضها . 2 ) التصميـــــــــم : عمل خانات  فى فيجوال بيزك TextBoxes بعدد سجلات الجداول (id - name - age - phone) عمل (4) ازرار بعدد و اسماء جداول قاعدة البيانات (ahmed - ali - said - mohammed) عمل الازرار اللازمة (save - find - delete - exit) يمكنك اضافة ايضا (Previous - Next) 3 ) الطريقة (المنطق) : اذا اردنا نقل سطر "سجل" من الجدول (Ahmed) الى الجدول (Ali) نقوم بالاتى : a) الضغط على زر (Ahmed) و باالتالى يتم فتح الجدول Ahmed b) نقوم بكتابة البيانات المطلوب نقلها c) نقوم بعمل حفظ (Save) d) ثم نبحث عن السجل المطلوب نقلة الضغط على زر (F...
                        Visual Basic 6.0

                        Visual Basic Online Course - Run-time error '3021' : Either BOF or EOF is True, or the current record has been deleted.

                        18 comments Visual Basic 6 By
                        Image
                        Visual Basic Online Course Run-time error '3021' : Either BOF or EOF is True, or the current record has been deleted. C ase : In Visual Basic 6.0 project with Database (e.g: MS-Access 2003) table, while trying to navigate through records you get the following error message. E rror No. : 3012 E rror description : Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record Solution : ♥ V isual B asic 6.0 Course Online : Automate MS-Access Database in Visual Basic 6.0 though a net work Visual Basic 6.0 Analog Clock Vi sual 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 DataGridView Visual Basic 6 .0  FTP full application source code Visual Basic 6.0 Color Picker tool source code Visual Basic 6.0 TreeView Control lesson ( Part1 - Part 2 - Part3 - Part4 - Part5 ) Arabic. Visual Basic 6....
                        Visual Basic 6.0

                        Visual Basic Online Course - Create a Phone Book

                        142 comments Visual Basic 6 By
                        Image
                        Visual Basic Help - Phone-Book Microsoft Visual Basic 6.0 help and Tutorials MS-Visual Basic 6.0 and MS-Access 2003 - Crystal Reports to create a desktop software professionally Index .../ (1) Visual Basic 6.0 project design and controls (2) MS-Access 2003 Database design (3) Visual Basic 6.0 codes for design (4) How does it work ? (5) Visual Basic 6.0 code for MS-Access 2003 (6) Crystal Reports 4.6 for Visual Basic 6.0 (7) Building the desktop application (8) Packing and Deploying the project (9) Testing the Phone-Book application (1) Visual Basic 6.0 project design & controls Create a new folder on your desktop, name it (PhoneBook). Open your Visual Basic 6.0, create new (Windows Applicatio). Save As .... your project in your (PhoneBook) folder on Desktop with the name (MyPhoneBook), or before saving, from (Project) , (Project Properties) , (General Tab) , (Project Title : MyPhoneBook) then from (Make Tab) , (Application Title : MyPhoneBook) then...
                        Visual Basic 6.0

                        VB6 Crystal Reports 4.6 Error : Method 'Action' of object 'CrystalCtrl' Failed

                        Visual Basic 6 By
                        Image
                        Visual Basic 6 Crystal Reports 4.6  Method 'Action' of object 'CrystalCtrl' Failed [1] Error description  In VB6 I get an error Method 'Action' of object 'CrystalCtrl' Failed when I attempt to execute the code : CrystalReport1.Action = 1 Cause Installing newer version of Crystal Reports in VB6 (I.e Crystal Reports for Visual Basic 11) Error message Method 'Action' of object 'CrystalCtrl' Failed Solution Open Visual Basic 6 project that causes the problem Add-In -> Report Designer Create a new Crystal Report file (I.e CrystalRep.rpt) Re-try your code with the new Report file ( CrystalRep.rpt ) Briefly : You will need to re-create all your reports in VB6 using Crystal Reports 4.6 to solve this problem. [2] Error description  I get an error in VB6 " Crystl32.ocx " Could Not Be Loaded when I attempt to open VB6 Project on Win7 32 or Win7 64 : Crysl32.Ocx Could Not Be Loaded Cause Missi...
                        Visual Basic 6.0

                        Visual Basic Online Course - Temperature convector

                        Visual Basic 6 By
                        Image
                        Visual Basic Online Course Temperature Convertor - Using Scroll Bars  Scroll Bar control is a very handy tool for Visual Basic programmers. It is used in many tricks like (sizing, scrolling texts .... etc) Visual Basic ScrollBar example Temperature Convector Desktop application source code project is a good example for Visual Basic beginners to start studying ScrollBars and how handy they are for a programmer as a tool on the form. Scrollbars in Visual Basic 6.0 is free to use, easy to place on a form (Horizontally or Vertically) according to your need in the design-time (IDE), in our example we will place one Scrollbar on the form and some labels, TextBoxes and CommandButtons as in the photo below . Temperature Convector VB6 Source Code What is Celsius and Fahrenheit ? - Celsius is a scale and unit of measurement for temperature. It is named after the Swedish astronomer Anders Celsius (1701–1744), who developed a similar temperature scale. The degree ...
                        Visual Basic 6.0