版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
上一节讲到了使用DirectoryInfo属性获取目录信息,本节讲一下有关DirectoryInfo的几个重要方法:创建、删除、移动

 

创建目录使用的是 Create() 方法,主要代码如下:

    Private Sub btnCreateFolder_Click(sender As Object, e As EventArgs) Handles btnCreateFolder.Click
        Dim di As New DirectoryInfo("d:\aa")
        If di.Exists Then
            txtFolderInfo.Text = "文件夹已经存在"
            Exit Sub
        End If
        di.Create()
        txtFolderInfo.Text = "文件夹已经创建"
    End Sub
其中判断了目录是否已经存在,如果已经存在那么退出。

 

删除目录使用的是 Delete()方法,主要代码如下:

    Private Sub btnDelFolder_Click(sender As Object, e As EventArgs) Handles btnDelFolder.Click
        Dim di As New DirectoryInfo("d:\aa")
        If di.Exists Then
            Try
                di.Delete()
                txtFolderInfo.Text = "文件夹已经删除"
            Catch ex As Exception
                txtFolderInfo.Text = "删除文件夹时发生错误," & ex.Message
            End Try
        Else
            txtFolderInfo.Text = "文件夹不存在"
        End If
    End Sub

实际上这个代码存在一些问题,如果需要删除的目录中包含子目录或者文件,那么会产生错误。

可以使用重载的Delete()方法完成对包含有子目录或者文件的目录的删除:

    Private Sub btnDelFolder2_Click(sender As Object, e As EventArgs) Handles btnDelFolder2.Click
        Dim di As New DirectoryInfo("d:\aa")
        If di.Exists Then
            Try
                di.Delete(True)
                txtFolderInfo.Text = "文件夹已经删除"
            Catch ex As Exception
                txtFolderInfo.Text = "删除文件夹时发生错误," & ex.Message
            End Try
        Else
            txtFolderInfo.Text = "文件夹不存在"
        End If
    End Sub

代码中,di.Delete(True),参数True指明了要删除该目录中的子目录和文件。

 

移动目录使用的是 MoveTo()方法,主要代码如下:

    Private Sub btnMoveFolder_Click(sender As Object, e As EventArgs) Handles btnMoveFolder.Click
        Dim di As New DirectoryInfo("d:\aa")
        If di.Exists Then
            Try
                di.MoveTo("d:\dd")
                txtFolderInfo.Text = "文件夹已经移动完毕"
            Catch ex As Exception
                txtFolderInfo.Text = "移动文件夹时发生错误," & ex.Message
            End Try
        Else
            txtFolderInfo.Text = "文件夹不存在"
        End If
    End Sub

需要注意的是,该方法不支持跨磁盘分区移动,修改代码

di.MoveTo("d:\dd")

di.MoveTo("c:\dd")

会产生错误:

 

学习更多vb.net知识,请参看 vb.net 教程 目录
————————————————
版权声明:本文为CSDN博主「VB.Net」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/uruseibest/article/details/74923460

vb.net 教程 4-2 目录操作 DirectoryInfo 2相关推荐

  1. vb.net 教程 4-2 目录操作 DirectoryInfo 3

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 本节重点谈谈文件夹属性的修改. 其实在 <vb.net 教程 4-2 目录操作 Direc ...

  2. vb.net 教程 4-2 目录操作 DirectoryInfo 1

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. .Net对文件的操作主要通过System.Io命名空间进行的,包括驱动器.文件夹.文件信息的获取 ...

  3. vb.net 教程 4-11 Json文件操作 1

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. json格式作为轻量级数据交换格式,在网页上也得到大量应用.json与xml格式各有优缺点,本教 ...

  4. vb.net 教程 20-4 库存管理系统3.14 出库单操作(FormStorageOutOrder)

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的.   关于<Visual Basic.Net 循序渐进>请到百度网盘下载,具体下载地址 ...

  5. vb.net 教程 10-2 Excel操作1 Excel文件的打开

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 为了便于理解Excel操作,我做了一个示意图 1.打开Excel,相当于新建了一个Applica ...

  6. vb.net 教程 8-3 数据库操作3

    订阅专栏 版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 本节在上一节的基础上学习在Command中设置sql语句参数: 还是以一个实例说明: ...

  7. vb.net 教程 10-2 Excel操作6 更改Excel单元格字体

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 通过修改Excel.Rang.Font的几个成员就可以修改相应Range内的字体,直接给出代码: ...

  8. TurboLinux入门教程:第九课文件与目录操作(转)

    TurboLinux入门教程:第九课文件与目录操作(转) 第九课 文件与目录操作 用户的数据和程序大多以文件的形式保存.用户使用Linux系统的过程中,需要经常对文件和目录进行操作.本章讲述了文件与目 ...

  9. vb.net 教程 10-2 Excel操作2 Excel文件的保存

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 如果是一般的打开某个Excel文件修改后保存到原文件或者新的文件,在 Excel.Applica ...

最新文章

  1. 互联网产品各阶段的标准流程文档
  2. Java实现数据库表结构导出到Excel
  3. 每天一个linux命令(17):whereis 命令
  4. tomcat 多项目多HOST配置
  5. 自学html代码,新手学HTML代码的简易方法
  6. Hibernate关系映射和HQL
  7. 【iOS】Swift3中NSFetchRequest报错:Generic parameter 'ResultType' could not be inferred
  8. 从零实现深度学习框架——神经网络入门
  9. 我的大学--单片机高手郭天祥的学习心得体会
  10. 繁凡的 ACM 退役记(一名普通算法竞赛选手与博主的竞赛生涯回忆录)凡是过往,皆为序章
  11. 修复inspinia中popover的点击问题
  12. 异数OS 织梦师-云(五)-- 容器服务化,绿色拯救未来。
  13. 2020年度中职组“网络空间安全”赛项xx市竞赛任务书
  14. 计算机中year函数怎么使用,excel2010中YEAR函数的使用方法
  15. Window10连接L2TP相关网络问题汇总
  16. 无人机自由飞行测试台 FFT GYRO 2000
  17. hadoop——常用端口号——常用的配置文件,3.x与2.x区别
  18. 苹果笔记本什么系统_苹果笔记本领域双系统
  19. 《Python数据分析与挖掘实战》示例源码免费下载
  20. 张凤莲:换城市工作就一定要转移社保吗?

热门文章

  1. 2018新创业赛事平台|创成汇
  2. css 边缘闪光_CSS 文字发光效果
  3. win10笔记本外接显示器刺眼问题解决
  4. 验证email是否合法
  5. 您应该知道的几个安卓照片恢复应用程序
  6. ESP32S2小项目-FM-网络时钟/电台-Arduino开发环境
  7. 《口袋妖怪》大战:通过数据分析,一次性揭示最强王者,谁能成为最后的胜者?
  8. 多窗口模式(multi-window mode)
  9. mybatis plus自动生成pojo试实体类
  10. Spring boot实现Activemq死信队列