ファイルのサイズを取得する
Public Function filesize(filename)
    Dim f
    filename = fileMapPath(filename)
    set f = fso.GetFile(filename)
    filesize = f.Size
End Function
引数
filename = string ファイルへのパス。
戻り値
ファイルのサイズを返し、エラーの場合は FALSE を返します (また E_WARNING レベルのエラーを発生させます) 。
処理
  指定したファイルのサイズを取得します。
File_System class内での処理

