application.startuppath 如: 你要获得当前目录下一个名为xxx.jpg文件的完整路径 dim path as string=application.startuppath & "\xxx.jpg"
