一、原文地址
在:http://www.accfans.net/dispbbs.asp?boardID=21&ID=15882&page=1
二、模块代码:
Type FileInfo
Name As String '名字
ShortName As String
Type As String '类型
Size As Long
DateCreate As Date
DateLastModified As Date '
DateLastAccessed As Date
Attributes As String
End Type
'===============================================================================
'-函数名称: GetFileInfo
'-功能描述: 获取文件信息
'-输入参数说明: 参数1: 必选 strFile As String 文件路径和名称
'-返回参数说明: 返回文件名称,类型,大小,更新日期等
'-使用语法示例: Msgbox GetFileInfo("C:\Abc.txt").Size
'-参考:
'-使用注意: 需要引用Microsoft Scripting Runtime
'-兼容性: 2000,XP,2003
'-作者: fan0217@163.com
'-更新日期: 2006-05-20
'===============================================================================
Function GetFileInfo(strFile As String) As FileInfo
On Error Resume Next
Dim fsoSys As New Scripting.FileSystemObject
Dim fsoFile As File
Dim strstrastr As String
Set fsoFile = fsoSys.GetFile(strFile)
With GetFileInfo
.Name = fsoFile.Name
.ShortName = fsoFile.ShortName
.Type = fsoFile.Type
.Size = fsoFile.Size / 1000
.DateCreate = fsoFile.DateCreated
.DateLastModified = fsoFile.DateLastModified
.DateLastAccessed = fsoFile.DateLastAccessed
If fsoFile.Attributes And Archive Then
strAstr = strAstr & "常规 "
End If
If fsoFile.Attributes And ReadOnly Then
strAstr = strAstr & "只读 "
End If
If fsoFile.Attributes And Hidden Then
strAstr = strAstr & "隐藏 "
End If
If fsoFile.Attributes And System Then
strAstr = strAstr & "系统 "
End If
If fsoFile.Attributes And Compressed Then
strAstr = strAstr & "压缩 "
End If
.Attributes = strAstr
End With
Set fsoSys = Nothing
Set fsoFile = Nothing
End Function