>707
処理を分けて、どこでエラーが出てるのか確認したら?
Dim SubFolderSize
SubFolderSize = subf.size
MegaByteSize = SubFolderSize / 1048576 '1024 * 1024