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

当前位置:

首页 > 编程开发 > vb >

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

————————————————

原文链接：https://blog.csdn.net/uruseibest/article/details/74906975

栏目列表