asp 查看某文件大小、类型、创建日期

Function showsize(filename)    
    FPath=server.mappath(filename)  '本目录下   
    set fso=server.CreateObject("scripting.filesystemobject")    
    If fso.fileExists(FPath) Then    
        Set f = fso.GetFile(FPath)    
        filetype=f.type    
        filesize=f.size    
        adddate=f.DateCreated    
        Select Case true    
        Case filesize<1024    
        fsize=filesize&" B"    
        Case filesize<1048576    
        fsize=Round((filesize/1024),2)&" KB"    
        Case filesize<1073741824    
        fsize=Round((filesize/1024/1024),2)&" MB"    
        Case else    
        fsize=Round((filesize/1024/1024/1024),2)&" GB"    
        End Select    
        Response.Write "文件大小："&fsize&"，文件类型："&filetype&"，创建时间："&adddate    
    else    
        Response.Write"文件不存在!"    
    end if    
End Function    

'========================
Call showsize("123.rar")