[MOHAMED]

السلام عليكم ورحمة الله وبركاته

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

اولاً : التعامل مع الملفات
عند وضع المسار لابد ان تضع امتداد الملف اوصيغته ايضاً
لتغيير اسم ملف اى كان امتداده

كود PHP:

My.Computer.FileSystem.RenameFile("مسار الملف", "الأسم الجديد") 


لنقل ملف من مسار لآخر اى اكان امتداده

كود PHP:

 My.Computer.FileSystem.MoveFile("المسار القديم", "المسار الجديد") 


لنسخ ملف من مسار لآخر اى كان امتداده

كود PHP:

 My.Computer.FileSystem.CopyFile("المسار الاساسي", "المسار الذى سيتم النسخ اليه") 


لقراءة النص فى ملف نصي

كود PHP:

Dim fileContents As String
        fileContents = My.Computer.FileSystem.ReadAllText("مسار الملف")
        MsgBox(fileContents) 


لإنشاء ملف نصي فارغ

كود PHP:

 My.Computer.FileSystem.WriteAllText("المسار", String.Empty, False) 


لإنشاء ملف نصي جديد والكتابه فيه

كود PHP:

   My.Computer.FileSystem.WriteAllText("مسار الحفظ", "النص", False) 


لحذف ملف اى كان امتداده

كود PHP:

  My.Computer.FileSystem.DeleteFile("مسار الملف", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin) 


لمعرفة حجم الملف اى كان امتداده

كود PHP:

      Dim fileSize As Long
        'معرفة حجم الملف
        fileSize = My.Computer.FileSystem.GetFileInfo("مسار الملف").Length
        MsgBox(fileSize) 


لمعرفة اذا كان الملف موجود او غير موجود اى كان امتداده

كود PHP:

   Dim fileExists As Boolean
        fileExists = My.Computer.FileSystem.FileExists("مسار الملف")
        If fileExists = True Then
            MsgBox("الملف موجود")
        Else
            MsgBox("الملف غير موجود")
        End If 


ثانياً : التعامل مع المجلدات
إنشاء مجلد جديد

كود PHP:

My.Computer.FileSystem.CreateDirectory("مسار المجلد مع أسمه") 


إظهار رسالة بعدد المجلدات فى مسار ما

كود PHP:

MsgBox(IO.Directory.GetDirectories("C:\").Length) 


نسخ مجلد

كود PHP:

My.Computer.FileSystem.CopyDirectory("المسار الاساسي", "المسار الذى سينسخ اليه") 


للتأكد من ان المجلد موجود بواسطة رسالة

  If IO.Directory.Exists("مسار المجلد") Then
            MsgBox("المجلد موجود")
        Else
            MsgBox("المجلد غير موجود")
        End If

اظهار رسلة بعدد الملفات فى مجلد

  MsgBox(IO.Directory.GetFiles("مسار المجلد").Length)

نقل مجلد من مسار لآخر

كود PHP:

   IO.Directory.Move("المسار الاساسي", "المجلد الذى سينقل اليه") 


نسخ مجلد من مسار لاخر

كود PHP:

     My.Computer.FileSystem.CopyDirectory("نسخ من", "نسخ الى") 


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

كود PHP:

 My.Computer.FileSystem.DeleteDirectory("مسار المجلد", FileIO.DeleteDirectoryOption.DeleteAllContents) 


لاظهار اسم مجلد فى رسالة

كود PHP:

MsgBox(My.Computer.FileSystem.GetDirectoryInfo("مسار المجلد").Name.ToString()) 


وشكرا لكم جميعا دمتم بود