vb点虐 刪除文件 vb 删除文件

VB点虐 在listview中添加checkbox,用来选中和删除txt文件

'以下是删除列表中的数据

成都创新互联公司于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

VB如何删除指定目录下的文件夹,并且删除里面的子目录和文件并不会提示和删除到回收站

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控件。

vb点虐 如何实现txt内容删除?

这么菜的问题,分还挺高啊,循环读文件,每次一行,跟你输入的内容比较一样就记录行号并且终止循环,并且新建个文件写入从开头到第(你记录的行号-1)行的内容和(你记录的行号+1)行以后的内容,把源文件删了,把新文件改名为老文件名,不一样就继续循环读取,到最后读完都没有则提示没有这个内容

就这样,具体程序自己写,如果没耐心那就没办法了 学不来编程了


当前题目:vb点虐 刪除文件 vb 删除文件
分享URL:http://azwzsj.com/article/ddjegop.html