vb 获取文件的时间属性

  Sub   ShowFileAccessInfo(filespec)  
          Dim   fs,   f,   s  
          Set   fs   =   CreateObject("Scripting.FileSystemObject")  
          Set   f   =   fs.GetFile(filespec)  
          s   =   UCase(filespec)   &   vbCrLf  
          s   =   s   &   "Created:   "   &   f.DateCreated   &   vbCrLf  
          s   =   s   &   "Last   Accessed:   "   &   f.DateLastAccessed   &   vbCrLf  
          s   =   s   &   "Last   Modified:   "   &   f.DateLastModified  
          MsgBox   s,   0,   "File   Access   Info"  
  End   Sub