التعامل مع الملفات والمجلدات لمبرمجى vb.net2005
 

http://img15.imageshack.us/img15/416...1dp1qm3nm5.gif
السلام عليكم ورحمة الله وبركاته

درسنا اليوم استكمال مسيرة دروس الفيجوال بيسك دوت نت وفى هذا الدرس
سنشرح كيفية التعامل مع الملفات والمجلدات فى الفيجوال بيسك دوت نت
بسم الله توكلنا على الله
http://img23.imageshack.us/img23/1/22222by5.gif
اولاً : التعامل مع الملفات
عند وضع المسار لابد ان تضع امتداد الملف اوصيغته ايضاً
لتغيير اسم ملف اى كان امتداده

كود 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 


---

http://img23.imageshack.us/img23/1/22222by5.gif
ثانياً : التعامل مع المجلدات
إنشاء مجلد جديد

كود PHP:

---

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


---

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

كود PHP:

---

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


---

نسخ مجلد

كود PHP:

---

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


---

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

كود بلغة HTML:

---

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

---

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

كود بلغة HTML:

---

  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()) 


---

وشكرا لكم جميعا دمتم بود
http://img23.imageshack.us/img23/1/22222by5.gif
http://majdah.maktoob.com/vb/up/48363536352727569.gif

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