MOHAMED
07-21-2011, 04:57 PM
http://img15.imageshack.us/img15/416/477bismellahtt1dp1qm3nm5.gif
السلام عليكم ورحمة الله وبركاته
درسنا اليوم استكمال مسيرة دروس الفيجوال بيسك دوت نت وفى هذا الدرس
سنشرح كيفية التعامل مع الملفات والمجلدات فى الفيجوال بيسك دوت نت
بسم الله توكلنا على الله
http://img23.imageshack.us/img23/1/22222by5.gif
اولاً : التعامل مع الملفات
عند وضع المسار لابد ان تضع امتداد الملف اوصيغته ايضاً
لتغيير اسم ملف اى كان امتداده
My.Computer.FileSystem.RenameFile("مسار الملف", "الأسم الجديد")
لنقل ملف من مسار لآخر اى اكان امتداده
My.Computer.FileSystem.MoveFile("المسار القديم", "المسار الجديد")
لنسخ ملف من مسار لآخر اى كان امتداده
My.Computer.FileSystem.CopyFile("المسار الاساسي", "المسار الذى سيتم النسخ اليه")
لقراءة النص فى ملف نصي
Dim fileContents As String
fileContents = My.Computer.FileSystem.ReadAllText("مسار الملف")
MsgBox(fileContents)
لإنشاء ملف نصي فارغ
My.Computer.FileSystem.WriteAllText("المسار", String.Empty, False)
لإنشاء ملف نصي جديد والكتابه فيه
My.Computer.FileSystem.WriteAllText("مسار الحفظ", "النص", False)
لحذف ملف اى كان امتداده
My.Computer.FileSystem.DeleteFile("مسار الملف", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)
لمعرفة حجم الملف اى كان امتداده
Dim fileSize As Long
'معرفة حجم الملف
fileSize = My.Computer.FileSystem.GetFileInfo("مسار الملف").Length
MsgBox(fileSize)
لمعرفة اذا كان الملف موجود او غير موجود اى كان امتداده
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
ثانياً : التعامل مع المجلدات
إنشاء مجلد جديد
My.Computer.FileSystem.CreateDirectory("مسار المجلد مع أسمه")
إظهار رسالة بعدد المجلدات فى مسار ما
MsgBox(IO.Directory.GetDirectories("C:\").Length)
نسخ مجلد
My.Computer.FileSystem.CopyDirectory("المسار الاساسي", "المسار الذى سينسخ اليه")
للتأكد من ان المجلد موجود بواسطة رسالة
If IO.Directory.Exists("مسار المجلد") Then
MsgBox("المجلد موجود")
Else
MsgBox("المجلد غير موجود")
End If
اظهار رسلة بعدد الملفات فى مجلد
MsgBox(IO.Directory.GetFiles("مسار المجلد").Length)
نقل مجلد من مسار لآخر
IO.Directory.Move("المسار الاساسي", "المجلد الذى سينقل اليه")
نسخ مجلد من مسار لاخر
My.Computer.FileSystem.CopyDirectory("نسخ من", "نسخ الى")
حذف مجلد بجميع محتوياته
My.Computer.FileSystem.DeleteDirectory("مسار المجلد", FileIO.DeleteDirectoryOption.DeleteAllContents)
لاظهار اسم مجلد فى رسالة
MsgBox(My.Computer.FileSystem.GetDirectoryInfo("مسار المجلد").Name.ToString())
وشكرا لكم جميعا دمتم بود
http://img23.imageshack.us/img23/1/22222by5.gif
http://majdah.maktoob.com/vb/up/48363536352727569.gif
السلام عليكم ورحمة الله وبركاته
درسنا اليوم استكمال مسيرة دروس الفيجوال بيسك دوت نت وفى هذا الدرس
سنشرح كيفية التعامل مع الملفات والمجلدات فى الفيجوال بيسك دوت نت
بسم الله توكلنا على الله
http://img23.imageshack.us/img23/1/22222by5.gif
اولاً : التعامل مع الملفات
عند وضع المسار لابد ان تضع امتداد الملف اوصيغته ايضاً
لتغيير اسم ملف اى كان امتداده
My.Computer.FileSystem.RenameFile("مسار الملف", "الأسم الجديد")
لنقل ملف من مسار لآخر اى اكان امتداده
My.Computer.FileSystem.MoveFile("المسار القديم", "المسار الجديد")
لنسخ ملف من مسار لآخر اى كان امتداده
My.Computer.FileSystem.CopyFile("المسار الاساسي", "المسار الذى سيتم النسخ اليه")
لقراءة النص فى ملف نصي
Dim fileContents As String
fileContents = My.Computer.FileSystem.ReadAllText("مسار الملف")
MsgBox(fileContents)
لإنشاء ملف نصي فارغ
My.Computer.FileSystem.WriteAllText("المسار", String.Empty, False)
لإنشاء ملف نصي جديد والكتابه فيه
My.Computer.FileSystem.WriteAllText("مسار الحفظ", "النص", False)
لحذف ملف اى كان امتداده
My.Computer.FileSystem.DeleteFile("مسار الملف", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)
لمعرفة حجم الملف اى كان امتداده
Dim fileSize As Long
'معرفة حجم الملف
fileSize = My.Computer.FileSystem.GetFileInfo("مسار الملف").Length
MsgBox(fileSize)
لمعرفة اذا كان الملف موجود او غير موجود اى كان امتداده
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
ثانياً : التعامل مع المجلدات
إنشاء مجلد جديد
My.Computer.FileSystem.CreateDirectory("مسار المجلد مع أسمه")
إظهار رسالة بعدد المجلدات فى مسار ما
MsgBox(IO.Directory.GetDirectories("C:\").Length)
نسخ مجلد
My.Computer.FileSystem.CopyDirectory("المسار الاساسي", "المسار الذى سينسخ اليه")
للتأكد من ان المجلد موجود بواسطة رسالة
If IO.Directory.Exists("مسار المجلد") Then
MsgBox("المجلد موجود")
Else
MsgBox("المجلد غير موجود")
End If
اظهار رسلة بعدد الملفات فى مجلد
MsgBox(IO.Directory.GetFiles("مسار المجلد").Length)
نقل مجلد من مسار لآخر
IO.Directory.Move("المسار الاساسي", "المجلد الذى سينقل اليه")
نسخ مجلد من مسار لاخر
My.Computer.FileSystem.CopyDirectory("نسخ من", "نسخ الى")
حذف مجلد بجميع محتوياته
My.Computer.FileSystem.DeleteDirectory("مسار المجلد", FileIO.DeleteDirectoryOption.DeleteAllContents)
لاظهار اسم مجلد فى رسالة
MsgBox(My.Computer.FileSystem.GetDirectoryInfo("مسار المجلد").Name.ToString())
وشكرا لكم جميعا دمتم بود
http://img23.imageshack.us/img23/1/22222by5.gif
http://majdah.maktoob.com/vb/up/48363536352727569.gif