HSend = FreeFile  '获得一个未使用的文件号
Open SENDFN For Binary As hSend '将SENDFN文件用二进制方式打开
LF&=LOF(hSend)                  ’获得文件的长度