السلام عليكم ورحمة الله وبركاته
كود فتح ملف من الجهاز عن طريق مستعرض الملفات :
كود :
' لفتح ملف من الجهاز
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' عرفنا أداة استعراض الملفات
Dim ofd As New OpenFileDialog
' الفلتر لاستعرض ملفات محددة هنا تركناه يستعرض كل الملفات
ofd.Filter = "All Files (*.*)|*.*"
' التحقق من أن المستخدم ضغط علي زر فتح (Open) في مستعرض الملفات
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
' وضع الملف الذي اخترناه في أداة التكست بوكس
TextBox1.Text = ofd.FileName
End If
End Sub
كود مسح الملف المختار :
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'متغير نصي لتخزين اسم الملف لسهولة التعامل معه
Dim FileToDelete As String = TextBox1.Text
' التحقق من وجود نص في المتغير
If FileToDelete <> "" Then
' التحقق من وجود الملف بالجهاز قبل مسحه
If My.Computer.FileSystem.FileExists(FileToDelete) = True Then
' إظهار رسالة لتأكيد المسح
If MsgBox("هل تريد بالتأكيد مسح هذا الملف ؟", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "تأكيد المسح") = MsgBoxResult.Yes Then
' هنا نمسح الملف من الجهاز
My.Computer.FileSystem.DeleteFile(FileToDelete, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin, FileIO.UICancelOption.DoNothing)
'' شرح لبعض الأشياء في كود المسح:
' FileIO.UIOption.OnlyErrorDialogs تعني لا تظهر أي نافذة مثل نافذة الويندوز الافتراضية لمسح الملفات فقط أظهر نافذة إذا حدث خطأ ما
' FileIO.RecycleOption.SendToRecycleBin إرسال الملف لسلة المحذوفات يوجد خيار آخر لمسح الملف نهائيا
' ileIO.UICancelOption.DoNothing تعني إذا حدث خطأ ما أثناء المسح تجاهله ويوجد خيار آخر لإظهار رسالة بالخطأ الذي حدث
End If
End If
Else
' إذا لا يوجد ملف مختار سنظهر رسالة تطالب بذلك
MsgBox("الرجاء تحديد ملف لمسحه", MsgBoxStyle.Exclamation, "مسح ملف")
End If
End Sub
****
***
**
*
