版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

.Net对文件的操作主要通过System.Io命名空间进行的，包括驱动器、文件夹、文件信息的获取、简单操作，以及文件和数据流的读写等。

 

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

 

Public Class Form1

 

之前加上

 

Imports System.IO

 

 

 

文件操作主要是使用FileInfo，由于FileInfo也是继承于FileSystemInfo，同DirectoryInfo的大多数属性和方法相同。这里就使用代码来说明属性和方法。

 

 

 

窗体设计界面：

 

 

 

 

 

 

 

获得文件相关信息：

 

    Private Sub btnChooseFolder_Click(sender As Object, e As EventArgs) Handles btnChooseFile.Click

        If OpenFileDialog1.ShowDialog <> DialogResult.OK Then

            Exit Sub

        End If

 

        Dim FilePath As String = OpenFileDialog1.FileName

        Dim file As New FileInfo(FilePath)

        txtFileInfo.Text = ""

        txtFileInfo.Text &= "文件名称：" & file.Name & ControlChars.CrLf

        txtFileInfo.Text &= "文件路径：" & file.FullName & ControlChars.CrLf

        txtFileInfo.Text &= "扩展名：" & file.Extension & ControlChars.CrLf

        txtFileInfo.Text &= "文件大小：" & file.Length & "字节" & ControlChars.CrLf

        txtFileInfo.Text &= "创建日期：" & file.CreationTime.ToString("yyyy-MM-dd") & ControlChars.CrLf

        txtFileInfo.Text &= "修改日期：" & file.LastWriteTime.ToString("yyyy-MM-dd") & ControlChars.CrLf

        txtFileInfo.Text &= "属性：" & getFolderAttr(file.Attributes) & ControlChars.CrLf

 

    End Sub

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

 

 

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

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

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