VB.NET 返回文件属性信息

VB.NET 返回文件属性信息!!

Public Sub xlfileinfo(Optional ByVal 全路径 As String = "")

On Error Resume Next

Dim myinfo As String = ""

If 全路径 = "" Then

全路径 = xlpath()

End If

Dim fPath As String = Path.GetFullPath(全路径)

Dim fInfo As New FileInfo(fPath)

myinfo = myinfo + " 1. 文 件 名 : " & fInfo.Name & vbCrLf

myinfo = myinfo + " 2. 路 径 : " & fInfo.DirectoryName & vbCrLf

myinfo = myinfo + " 3. 文 件 大 小 : " & Math.Round((fInfo.Length.ToString() / 1024) / 1024, 2) & " M" & vbCrLf

myinfo = myinfo + " 4. 创建文件时间 : " & fInfo.CreationTime & vbCrLf

myinfo = myinfo + " 5. 最近访问时间 : " & fInfo.LastAccessTime & vbCrLf

myinfo = myinfo + " 6. 最近写入时间 : " & fInfo.LastWriteTime & vbCrLf

If CBool(fInfo.Attributes And FileAttributes.Hidden) = True Then

myinfo += " 7. 隐 藏 文 件 : 是 " & vbCrLf

Else

myinfo += " 7. 隐 藏 文 件 : 否 " & vbCrLf

End If

If CBool(fInfo.Attributes And FileAttributes.ReadOnly) = True Then

myinfo += " 8. 只 读 文 件 : 只读 " & vbCrLf

Else

myinfo += " 8. 只 读 文 件 : 读写 " & vbCrLf

End If

If CBool(fInfo.Attributes And FileAttributes.System) = True Then

myinfo += " 9. 系 统 文 件 : 是 " & vbCrLf

Else

myinfo += " 9. 系 统 文 件 : 否 " & vbCrLf

End If

If CBool(fInfo.Attributes And FileAttributes.Offline) = True Then

myinfo += "10.脱 机 : 脱机 " & vbCrLf

Else

myinfo += "10.脱 机 : 否 " & vbCrLf

End If

MsgBox(myinfo)

End Sub