将当前程序所在路径替换为点就可以了.如tPath = Replace(tPath, App.Path, ".", 1, 1, 1)假设程序所在目录为 C:\Programs\ABC则路径 C:\Programs\ABC\Images\001.jpg 会被处理为 .\Images\001.jpg在需要时,再将首个点替换为 App.Path 即可.
