السلام عليكم ورحمة الله وبركاته
درسنا اليوم استكمال مسيرة دروس الفيجوال بيسك دوت نت وفى هذا الدرس
سنشرح كيفية التعامل مع الملفات والمجلدات فى الفيجوال بيسك دوت نت
بسم الله توكلنا على الله
اولاً : التعامل مع الملفات
عند وضع المسار لابد ان تضع امتداد الملف اوصيغته ايضاً
لتغيير اسم ملف اى كان امتداده
كود 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("المسار الاساسي", "المسار الذى سينسخ اليه")
للتأكد من ان المجلد موجود بواسطة رسالة
كود بلغة 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())
وشكرا لكم جميعا دمتم بود