首页 | IT新闻 | 硬件 | 操作系统 | 开发 | 网络编程 | 数据库 | 热门框架 | 网络安全 | 组网 | 建站指南 | 网页制作 | 特效 | 实用技巧 | 服务器 | 办公 | QQ | 探索 | 社区
|
一个VB.NET的删除目录的模块
Public Sub DelDirectory(ByVal DirName As String)
’If Not (Microsoft.VisualBasic.Right(destDirName, 1) = Path.DirectorySeparatorChar) Then ’ ’’取目标数程序，最后一个字符是否是“/”，不是则加上 ’ destDirName = destDirName + Path.DirectorySeparatorChar ’End If Try Dim files As String() = Directory.GetFiles(DirName) For Each strfile As String In files File.Delete(strfile) ’删除文件 Next Dim dirs As String() = Directory.GetDirectories(DirName) For Each mydir As String In dirs DelDirectory(mydir) ’’递归遍历 Directory.Delete(mydir) ’’’删除此目录 Next Catch ex As Exception Console.WriteLine(ex.Message) End Try End Sub 相关链接
频道热门
热门新闻
|
精粹集锦
特别推荐
频道精选
|
