Drive 属性

[code]Function ShowFileAccessInfo(filespec)    Dim fso, f, s    Set fso = CreateObject("Scripting.FileSystemObject")    Set f = fso.GetFile(filespec)    s = f.Name & " [/code]位于驱动器[code] " & UCase([b]f.Drive[/b]) & "<BR>"[/code][code]    s = s & "[/code]创建时间：[code]" & f.DateCreated & "<BR>"[/code][code]    s = s & "[/code]上次访问时间：[code]" & f.DateLastAccessed & "<BR>"[/code][code]    s = s & "[/code]上次修改时间：[code]" & f.DateLastModified  [/code][code]ShowFileAccessInfo = s[/code][code]End Function[/code]