Dim str As Stringstr = IIf(Len(App.Path) > 3, App.Path & "" & App.EXEName & ".exe", App.Path & App.EXEName & ".exe") str 就是EXE文件的路径了。搞这么复杂是因为当EXE文件在根目录下的时候,app.path 是带有“”,不在根目录下的时候没有。