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

概述.Net对文件的 *** 作主要通过System.Io命名空间进行的，包括驱动器、文件夹、文件信息的获取、简单 *** 作，以及文件和数据流的读写等。 在本章教程中需要引用System.Io，请在窗体的所有代码之前，例如Form1窗体的代码 Public Class Form1 之前加上 Imports System.IO 目录信息可以通过System.Io命名空间下面的DirectoryInfo类来获得。 Di .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 教程 目录 总结

以上是内存溢出为你收集整理的vb.net 教程 4-2 目录 *** 作 DirectoryInfo 1全部内容，希望文章能够帮你解决vb.net 教程 4-2 目录 *** 作 DirectoryInfo 1所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。