Application.StartupPath() ' 获取当前路径Application.ExecutablePath ' 获取当前完整路径(包括文件名*.exe)
本文地址：http://com.8s8s.com/it/it42579.htm