vb判断文件是否打开