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 教程 目录