vb writefile api函数