20-02-15, 11:46 PM
السلام عليكم
عند تنفيذ البرنامج وهو مسح ملفات بصيغة exe فانه تظهر رسالة خطا
No files found matching 'C:\Users\REEMO\Desktop\system.exe'.
Dim i As Integer = 0
Dim directory = OFD.SelectedPath
Try
For Each filename As String In IO.Directory.GetFiles(directory, "*.exe", IO.SearchOption.AllDirectories)
File.Delete(filename)
i = i + 1
TextBox1.Text = Convert.ToString(i)
' ListBox1.Items.Add(fname)
' ListBox2.Items.Add(filename)
'End If
' End If
Next
Catch EX As Exception
MessageBox.Show("cannot red file from disk .originl error :" & EX.Message)
End Try
End If
عند تنفيذ البرنامج وهو مسح ملفات بصيغة exe فانه تظهر رسالة خطا
No files found matching 'C:\Users\REEMO\Desktop\system.exe'.
Dim i As Integer = 0
Dim directory = OFD.SelectedPath
Try
For Each filename As String In IO.Directory.GetFiles(directory, "*.exe", IO.SearchOption.AllDirectories)
File.Delete(filename)
i = i + 1
TextBox1.Text = Convert.ToString(i)
' ListBox1.Items.Add(fname)
' ListBox2.Items.Add(filename)
'End If
' End If
Next
Catch EX As Exception
MessageBox.Show("cannot red file from disk .originl error :" & EX.Message)
End Try
End If