'以下是删除列表中的数据
成都创新互联公司于2013年开始,先为建安等服务建站,建安等地企业,进行企业商务咨询服务。为建安企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
For i = ListView1.ListItems.Count To 1 Step -1
If ListView1.ListItems(i).Checked = True Then
ListView1.ListItems.Remove (i)
End If
Next i
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If FolderBrowserDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
TextBox1.Text = FolderBrowserDialog1.SelectedPath
Else
MsgBox("OpenFolder Error", MsgBoxStyle.Critical)
Exit Sub
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
If TextBox1.Text "" Then
My.Computer.FileSystem.DeleteDirectory(TextBox1.Text, FileIO.DeleteDirectoryOption.DeleteAllContents)
MessageBox.Show("Finished!")
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
End Class
在VB.NET 2010编译运行通过。
注意要加一个FolderBrowserDialog控件。
这么菜的问题,分还挺高啊,循环读文件,每次一行,跟你输入的内容比较一样就记录行号并且终止循环,并且新建个文件写入从开头到第(你记录的行号-1)行的内容和(你记录的行号+1)行以后的内容,把源文件删了,把新文件改名为老文件名,不一样就继续循环读取,到最后读完都没有则提示没有这个内容
就这样,具体程序自己写,如果没耐心那就没办法了 学不来编程了