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

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

在本章教程中需要引用System.Io，请在窗体的所有代码之前，例如Form1窗体的代码

Public Class Form1

之前加上

Imports System.IO

 

目录信息可以通过System.Io命名空间下面的DirectoryInfo类来获得。

DirectoryInfo的重要属性：

Name：获取DirectoryInfo实例的名称，例如：c:\windows\system32 将返回 system32。
FullName：获取目录或文件的完整目录。例如：c:\windows\system32 将返回 c:\windows\system32 。
Attributes：目录的属性。
Exists：目录是否存在。
CreationTime：目录的创建时间。
LastWriteTime：目录的最后修改时间。

 

窗体设计如下：

除了窗体上的控件外，还需要添加 文件夹对话框（FolderBrowserDialog1）

当选择某个文件夹后，立即在文本框中显示该文件夹的相关信息：

    Private Sub btnChooseFolder_Click(sender As Object, e As EventArgs) Handles btnChooseFolder.Click
        If FolderBrowserDialog1.ShowDialog <> DialogResult.OK Then
            Exit Sub
        End If

        Dim folderPath As String = FolderBrowserDialog1.SelectedPath
        Dim folder As DirectoryInfo
        folder = New DirectoryInfo(folderPath)
        txtFolderInfo.Text = ""
        txtFolderInfo.Text &= "文件夹：" & folder.Name & ControlChars.CrLf
        txtFolderInfo.Text &= "路径：" & folder.FullName & ControlChars.CrLf
        txtFolderInfo.Text &= "创建日期：" & folder.CreationTime.ToString("yyyy-MM-dd") & ControlChars.CrLf
        txtFolderInfo.Text &= "最后修改日期：" & folder.LastWriteTime.ToString("yyyy-MM-dd") & ControlChars.CrLf
        txtFolderInfo.Text &= "属性：" & getFolderAttr(folder.Attributes) & ControlChars.CrLf

    End Sub

 

其中用到了一个自定方法getFolderAttr()：

    Function getFolderAttr(ByVal attr As Integer) As String
        Dim strAttr As String = ""
        If (attr And FileAttributes.Archive) Then strAttr &= " 备份"
        If (attr And FileAttributes.Compressed） Then strAttr &= " 压缩"
        If (attr And FileAttributes.Directory） Then strAttr &= " 目录"
        If (attr And FileAttributes.Encrypted） Then strAttr &= " 加密"
        If (attr And FileAttributes.Hidden) Then strAttr &= " 隐藏"
        If (attr And FileAttributes.Normal） Then strAttr &= " 正常"
        If (attr And FileAttributes.Offline） Then strAttr &= " 脱机"
        If (attr And FileAttributes.ReadOnly) Then strAttr &= " 只读"
        If （attr And FileAttributes.System） Then strAttr &= " 系统"
        If （attr And FileAttributes.Temporary） Then strAttr &= " 临时"

        Return strAttr
    End Function

 

运行效果如下：

 

学习更多vb.net知识，请参看 vb.net 教程 目录