| 查看: 1181 | 回复: 2 | |||
| 本帖产生 1 个 程序强帖 ，点击这里进行查看 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
VB.net实现删除文件的问题
|
|||
| 用VB.net实现删除同一文件夹下相同名称的所有文件，表达不好，还是举个例子吧，比如说删除某一文件夹下有zz.txt，zz.doc，zz.shp 。。。。就是名为zz的全删除，用VB.net编程该如何实现？ |
回复此楼» 猜你喜欢
本科双非材料，跨考一志愿华电085801电气，283求调剂，任何专业都可以
已经有6人回复
-
材料与化工272求调剂
已经有9人回复
-
085602 化工专硕 338分 求调剂
已经有11人回复
-
070305高分子化学与物理 304分求调剂
已经有4人回复
-
一志愿北化085600材料专硕275|有文章专利｜求调剂
已经有5人回复
-
一志愿北京工业大学，324分求调剂
已经有4人回复
-
320分，材料与化工专业，求调剂
已经有13人回复
-
学硕274求调剂
已经有7人回复
-
085600，材料与化工321分求调剂
已经有9人回复
-
求调剂
已经有4人回复
» 抢金币啦！回帖就可以得到:
-
西安征结婚女友
+1/291
-
西南交通大学医学院招收生物医学工程和材料与化工专业硕士研究生
+1/85
-
赣南师范大学肖兴教授课题组招2026级电子信息硕士 4-6 名，欢迎调剂
+1/82
-
湖北师范大学调剂 化学材料类
+1/78
-
重庆交通大学院士团队招收材料、能源动力专业硕士研究生
+2/50
-
招收材料相关硕士研究生
+2/40
-
中原食品实验室 & 郑州轻工业大学2026年硕士研究生联合培养调剂公告
+1/39
-
安徽工程大学化学与环境工程学院对外招收2026级调剂硕士研究生
+1/36
-
上海大学 “生物有机电子材料及器件”团队硕士、博士研究生招聘
+1/31
-
春眠不觉晓
+1/19
-
双一流大学湘潭大学“化工过程模拟与强化”国家地方联合工程研究中心招收博士生
+1/17
-
【实战型】【生物医药】2026青岛大学招博士生 含少数民族骨干计划2名！
+1/14
-
韩国庆熙大学 Yu Taekyung 教授招2026年博士研究生
+1/10
-
【博士招生】广东工业大学国家优青课题组招收2026年环境方向博士生
+1/7
-
中国地质大学（武汉）清洁能源与资源循环团队诚招科研助理/2026级硕士、博士生/博士后
+1/5
-
天津工业大学双一流高校招博士、硕士、博士后
+1/4
-
武汉纺织大学招收硕士研究生调剂
+1/4
-
中科院科研助理招聘
+1/3
-
武汉纺织大学国家杰青课题组诚招调剂硕士研究生
+1/3
-
哈工大韩飞课题组招收3D微纳加工、光学工程、纳米化学等方向博士生及博后（长期有效）
+1/3
★ ★ ★
微尘、梦想(金币+3): 谢谢！ 2011-05-14 19:50:52
zzahkj(金币+10): 2011-05-15 23:18:29
微尘、梦想(金币+3): 谢谢！ 2011-05-14 19:50:52
zzahkj(金币+10): 2011-05-15 23:18:29
|
用kill方法 Option Explicit Private Sub Command1_Click() Dim strPathName As String strPathName = "" strPathName = InputBox("请输入需要删除的文件夹名称∶", "删除文件夹"  If strPathName = "" Then Exit Sub On Error GoTo ErrorHandle SetAttr strPathName, vbNormal '此行主要是为了检查文件夹名称的有效性 RecurseTree strPathName Label1.Caption = "文件夹" & strPathName & "已经删除！" Exit Sub ErrorHandle: MsgBox "无效的文件夹名称:" & strPathName End Sub Sub RecurseTree(CurrPath As String) Dim sFileName As String Dim newPath As String Dim sPath As String Static oldPath As String sPath = CurrPath & "\" sFileName = Dir(sPath, 31) '31的含义∶31=vbNormal+vbReadOnly+vbHidden+vbSystem+vbVolume+vbDirectory Do While sFileName <> "" If sFileName <> "." And sFileName <> ".." Then If GetAttr(sPath & sFileName) And vbDirectory Then '如果是目录和文件夹 newPath = sPath & sFileName RecurseTree newPath sFileName = Dir(sPath, 31) Else SetAttr sPath & sFileName, vbNormal Kill (sPath & sFileName) Label1.Caption = sPath & sFileName '显示删除过程 sFileName = Dir End If Else sFileName = Dir End If DoEvents Loop SetAttr CurrPath, vbNormal RmDir CurrPath Label1.Caption = CurrPath End Sub[ Last edited by jjdg on 2011-5-14 at 16:42 ] |
3楼2011-05-14 16:41:43
★ ★ ★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
微尘、梦想(金币+5, 程序强帖+1): 谢谢参与应助！ 2011-05-14 19:50:35
小木虫(金币+0.5):给个红包，谢谢回帖
微尘、梦想(金币+5, 程序强帖+1): 谢谢参与应助！ 2011-05-14 19:50:35
|
http://webservices.ctocio.com.cn/net/182/9255182.shtml VB.NET版 Imports System.IO Imports System.IO.Directory ' ====================================================== ' 实现一个静态方法将指定文件夹下面的所有内容copy到目标文件夹下面 ' 如果目标文件夹为只读属性就会报错。 ' ====================================================== Public Shared Sub CopyDir(ByVal srcPath As String, ByVal aimPath As String) Try ' 检查目标目录是否以目录分割字符\结束,如果不是则添加之 If aimPath(aimPath.Length - 1) <> Path.DirectorySeparatorChar Then aimPath += Path.DirectorySeparatorChar End If '判断源目录是否存在,不存在则退出. If (Not Directory.Exists(srcPath)) Then Exit Sub ' 判断目标目录是否存在如果不存在则新建之 If (Not Directory.Exists(aimPath)) Then Directory.CreateDirectory(aimPath) ' 得到源目录的文件列表，该里面是包含文件以及目录路径的一个数组 ' 如果你指向copy目标文件下面的文件而不包含目录请使用下面的方法 ' string[] fileList = Directory.GetFiles(srcPath); Dim fileList() As String = Directory.GetFileSystemEntries(srcPath) ' 遍历所有的文件和目录 For Each FileName As String In fileList ' 先当作目录处理如果存在这个目录就递归Copy该目录下面的文件 If Directory.Exists(FileName) Then CopyDir(FileName, aimPath + Path.GetFileName(FileName)) ' 否则直接Copy文件 Else File.Copy(FileName, aimPath + Path.GetFileName(FileName), True) End If Next Catch ex As Exception MessageBox.Show(ex.ToString()) End Try End Sub ' ====================================================== ' 实现一个静态方法将指定文件夹下面的所有内容Detele ' 测试的时候要小心*作，删除之后无法恢复。 ' ====================================================== Public Shared Sub DeleteDir(ByVal aimPath As String) Try ' 检查目标目录是否以目录分割字符结束如果不是则添加之 If (aimPath(aimPath.Length - 1) <> Path.DirectorySeparatorChar) Then aimPath += Path.DirectorySeparatorChar End If '判断待删除的目录是否存在,不存在则退出. If (Not Directory.Exists(aimPath)) Then Exit Sub ' 得到源目录的文件列表，该里面是包含文件以及目录路径的一个数组 ' 如果你指向Delete目标文件下面的文件而不包含目录请使用下面的方法 ' string[] fileList = Directory.GetFiles(aimPath); Dim fileList() As String = Directory.GetFileSystemEntries(aimPath) ' 遍历所有的文件和目录 For Each FileName As String In fileList If (Directory.Exists(FileName)) Then ' 先当作目录处理如果存在这个目录就递归Delete该目录下面的文件 DeleteDir(aimPath + Path.GetFileName(FileName)) Else ' 否则直接Delete文件 File.Delete(aimPath + Path.GetFileName(FileName)) End If Next '删除文件夹 System.IO.Directory.Delete(aimPath, True) Catch ex As Exception MessageBox.Show(ex.ToString()) End Try End Sub |
2楼2011-05-14 16:41:07
