|
发表于 2015-12-11 15:27:37
|
显示全部楼层
功能 取文件大小(参_路径,参_长格式 = 假)
变量 局_句柄 = 0
变量 局_返回 = ""
变量 局_长度 = 数组()
变量 局_缓冲 = 数组()
如果((局_句柄 = 文件打开(参_路径,"读写|文件要存在")) > 0)
局_缓冲["Buf"] = 数组("wchar" = 128,"value" = "")
局_长度["Low"] = 数组("long" = 0 ,"value" = 0)
局_长度["High"] = 数组("long" = 0 ,"value" = 0)
如果(动态库调用("Kernel32.dll","long","GetFileSizeEx","long",局_句柄,"pstruct",局_长度))
如果(参_长格式)
局_返回 = 动态库调用("Shlwapi.dll","wchar *","StrFormatKBSizeW","struct",局_长度,"pstruct",局_缓冲,"long",结构体长度(局_缓冲))
否则
局_返回 = 动态库调用("Shlwapi.dll","wchar *","StrFormatByteSizeW","struct",局_长度,"pstruct",局_缓冲,"long",结构体长度(局_缓冲))
结束
结束
结束
文件关闭(局_句柄)
返回 局_返回
结束 |
|