Script Paradigm

ファイルサイズを取得

ファイルのファイルサイズを取得します。

Option Explicit
MsgBox fnGetFileSize("test.txt")
Function fnGetFileSize(strFilePath)
    Dim fsoTemp
    Dim fliTemp
    
    Set fsoTemp = WScript.CreateObject("Scripting.FileSystemObject")
    Set fliTemp = fsoTemp.GetFile(strFilePath)
    fnGetFileSize = fliTemp.Size
    
    Set fliTemp = Nothing
    Set fsoTemp = Nothing
End Function
Copyright © 2006 Hikijishi All Rights Reserved.
[] [wsh][0.00102090835571289]