vb.net 教程 4-3 文件操作 FileInfo 1
来源:互联网 发布:聊天自动翻译软件 编辑:程序博客网 时间:2024/05/22 14:14
.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 教程 目录
阅读全文
0 0
- vb.net 教程 4-3 文件操作 FileInfo 1
- vb.net 教程 4-3 文件操作 FileInfo 2
- vb.net 教程 4-5 文件操作 File 1
- 使用VB.NET的FileInfo和DirectoryInfo类进行文件操作
- Vb.net FileInfo Class
- vb.net 教程 4-5 文件操作 File 2
- vb.net 教程 4-4 目录操作 Directory 1
- vb.net 教程 4-2 目录操作 DirectoryInfo 3
- vb.net 教程 4-2 目录操作 DirectoryInfo 3 篇外
- vb.net 教程 8-3 数据库操作4
- vb.net 教程 4-2 目录操作 DirectoryInfo 1
- vb.net 教程 8-3 数据库操作1
- vb.net 教程 8-3 数据库操作9-1
- vb.net 教程 8-3 数据库操作10-1
- [VB.NET]文件操作
- VB.net文件操作
- vb.net 教程 3-12 资源文件 1-3
- vb.net 教程 3-12 资源文件 1-1
- The dollar ($) prefixed field '$inc' in '$inc' is not valid for storage
- MFC隐藏窗口时解决窗口闪烁问题
- 鸡汤
- JAVA强制类型转换不是四舍五入
- vue-axios整合使用
- vb.net 教程 4-3 文件操作 FileInfo 1
- C++笔记(一)
- Oracle
- 本地Windows远程桌面连接阿里云Ubuntu服务器
- Android Monkey的使用
- 递归+二分查找
- 奇异值分解(SVD) --- 几何意义
- Android EditText 监听回车键
- install and configure postgresql