ファイルサイズを取得
ファイルのファイルサイズを取得します。
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