以下是引用cdb0y在2006-1-6 16:02:00的发言：
取到了 不过是用的字节做单位的
要怎么转换成K呢 如果超过1024K 就转成MB 怎么去实现这一步？
取到了 不过是用的字节做单位的
要怎么转换成K呢 如果超过1024K 就转成MB 怎么去实现这一步？
Function GetFileSize(size)
Dim FileSize
FileSize=size / 1024
FileSize=FormatNumber(FileSize,2)
If FileSize < 1024 and FileSize > 1 then
GetFileSize= FileSize & " KB"
ElseIf FileSize >1024 then
GetFileSize= FormatNumber(FileSize / 1024,2) & " MB"
Else
GetFileSize= Size & " Bytes"
End If
End Function
专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）
