判断打开的文件,并显示其路径程序(VB6.0源代码编写)