已审核词条 未审核词条

子程序名	返回值类型	公开	备 注
文件_取尺寸	文本型		直接大于2G以上超大文件
参数名	类 型	参考	可空	数组	备 注
参_文件名	文本型				文件的完整路径
参_格式化	逻辑型				格式化以B、KB、GB返回

变量名	类 型	静态	数组	备 注
m_hfile	整数型
m_fileSize	长整数型
m_objsfo	对象
m_objFile	对象
m_return	文本型
m_sbuffer	文本型

m_hfile ＝ _lopen (参_文件名, 0)
GetFileSizeEx (m_hfile, m_fileSize)
_lclose (m_hfile)
如果真 (m_fileSize ＝ 0)
CoInitialize (0)
m_objsfo.创建 (“scripting.FileSystemObject”, )
m_objFile ＝ m_objsfo.对象型方法 (“GetFile”, 参_文件名)
m_fileSize ＝ m_objFile.读属性 (“Size”, ).取数值 ()
m_objFile.清除 ()
m_objFile.清除 ()
CoUninitialize ()
如果真 (参_格式化)
m_sbuffer ＝ 取空白文本 (20)
StrFormatByteSize64A (m_fileSize, m_sbuffer, 20)
如果真 (m_sbuffer ＝ “0 字节”)
m_sbuffer ＝ “0”
如果真 (寻找文本 (m_sbuffer, “字节”, , 假) ≠ 0)
m_sbuffer ＝ 子文本替换 (m_sbuffer, “字节”, “B”, , , 真)
m_return ＝ m_sbuffer
返回 (选择 (参_格式化, m_return, 到文本 (m_fileSize)))

词条作者信息 使用例程