GetFileAttr

 Private Function GetFileAttr(sPath As String, iAttr As Integer)
Dim oFSO As New FileSystemObject
Dim oFile As File
Dim sOut As String

Set oFile = oFSO.GetFile(sPath)

Select Case iAttr
Case 0 '创建日期
sOut = oFile.DateCreated
Case 1 '修改日期
sOut = oFile.DateLastModified
Case 2 '访问日期
sOut = oFile.DateLastAccessed
Case 3 '文件大小
sOut = oFile.Size
Case 4 '文件类型
sOut = oFile.Type
End Select

GetFileAttr = sOut

End Function