若VB的执行程序在 C:\VB 文件夹内，App.Path 可返回

如果程序在根目录下（如C:\根目录下）返回C:
如果不在（如在C:\Program Files\目录下）返回C:\Program Files\

其实 如果载入文件什么的 多一个\不要紧 但是少一个\就有问题 所以一般这样：
Open App.Path & "\File.txt" 类似