| 查看: 1178 | 回复: 2 | |||
| 本帖产生 1 个 程序强帖 ，点击这里进行查看 | |||
[交流]
VB.net实现删除文件的问题
|
|||
| 用VB.net实现删除同一文件夹下相同名称的所有文件，表达不好，还是举个例子吧，比如说删除某一文件夹下有zz.txt，zz.doc，zz.shp 。。。。就是名为zz的全删除，用VB.net编程该如何实现？ |
回复此楼» 猜你喜欢
292求调剂
已经有15人回复
-
304求调剂
已经有5人回复
-
材料与化工考研调剂
已经有17人回复
-
321求调剂
已经有5人回复
-
329求调剂
已经有5人回复
-
材料求调剂一志愿哈工大324
已经有8人回复
-
286求调剂
已经有7人回复
-
083000学硕274求调剂
已经有7人回复
-
311求调剂
已经有8人回复
-
一志愿C9材料与化工专业总分300求调剂
已经有9人回复
» 抢金币啦！回帖就可以得到:
-
2026江西科技师范大学申亮组招硕士研究生
+1/94
-
福建师范大学招收2026年化学、材料硕士3-4名
+1/90
-
欢迎化学、生物与医药、药学，生物、食品等相关专业的同学
+1/39
-
中国计量科学研究院长度量子基准实验室2026年调剂招生
+1/34
-
浙江省人民医院博士后岗位招聘
+1/33
-
哈尔滨工业大学（深圳）-何自开教授团队诚招化学工程与技术专业博士研究生
+1/30
-
欢迎08或部分07开头的有缘人报考
+1/30
-
巴黎西岱大学（Université Paris Cité）Fayna MAMMERI 导师寻找CSC公派博士生
+1/22
-
春眠不觉晓
+1/19
-
双一流大学湘潭大学“化工过程模拟与强化”国家地方联合工程研究中心招收各类博士生
+1/16
-
南京林业大学化工院有机合成方向硕士招调剂
+1/10
-
西安工程大学环境与化学工程学院能源环境催化与先进材料课题组招生
+1/9
-
☆ ☆ 中山大学附属第七医院肖芷洁课题组诚招分子医学方向硕士生（调剂生） ☆ ☆
+1/7
-
华侨大学仿生多尺度孔道课题组分部联合985杰青团队招聘材料、化学 教师、硕博研究生
+2/6
-
基于机器学习和人工智能的结构/合金设计-西安交大
+1/4
-
哈工大韩飞课题组招收3D微纳加工、光学工程、纳米化学等方向博士生及博后（长期有效）
+1/4
-
【博士招生】天津理工大学国家杰青王铁课题组招收2026年博士研究生
+1/3
-
各种IgG抗体表达系统
+1/3
-
上海师范大学有机化学专业研究生招生
+1/2
-
山东济南省属重点高校生态环境类硕士调剂信息
+1/2
★ ★ ★ ★ ★ ★
小木虫(金币+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
★ ★ ★
微尘、梦想(金币+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
