版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。 .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 教程 目录
