１４．ファイルサイズを調べる方法
＜ 使用用途 ＞
ファイルのサイズ（バイト）を取得出来ます。
今回のサンプルソースをダウンロードする方は下記の「ダウンロード」をＰＵＳＨ！
＝＞ ダウンロード ・・・ 下に書いてあるサンプルソースと同じです
＜ 説明 ＞
Filelen 関数を使用します。至ってカンタンです（＾＾）
Filelen ＝＞ ファイルのサイズを取得する
ＰＳ
ＡＰＩ関数を使ってもファイルサイズを取得できますが処理が長くなるので「却下ッ」しました
< ＳＡＭＰＬＥ ＞
'このサンプルソースはコマンドボタンを押した時の処理です
Private Sub Command1_Click()
'Filelen関数でファイルサイズを所得するサンプルです
Dim STRCHAR, FILENAME, MSGTEXT As String
'何かサンプルになるファイルをここで指定して下さい（＾＾）
FILENAME = "B:テスト.exe"
STRCHAR = FileLen(FILENAME)
MSGTEXT = "ファイルサイズは " & STRCHAR & " byteです"
MsgBox MSGTEXT
End Sub