vb通过open语句打开的文件得到当前读写位置的函数是