[sooriaty03]

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

تفضل أخي الكريم
هذا الكود المطلوب

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FileName As String = "Example.txt"
        If Dir(FileName) <> "" Then
            Kill(FileName)
            MsgBox("تم حذف الملف")
        Else
            MsgBox("الملف غير موجود أو ربما تم حذفه سابقا")
        End If
    End Sub

بالتوفيق