vb里逐个打开处理并关闭