ParentFolder 属性

[code]Function ShowFileAccessInfo(filespec)    Dim fso, f, s    Set fso = CreateObject("Scripting.FileSystemObject")    Set f = fso.GetFile(filespec)    s = UCase(f.Name) & " [/code]的父文件夹为[code] " & UCase([b]f.ParentFolder[/b]) & "<BR>"[/code][code]    s = s & "[/code]创建时间：[code]" & f.DateCreated & "<BR>"[/code][code]    s = s & "[/code]上次访问时间：[code]" & f.DateLastAccessed & vbCrLf[/code][code]    s = s & "[/code]上次修改时间：[code]" & f.DateLastModified  [/code][code]ShowFileAccessInfo = s[/code][code]End Function[/code]