就是要获得上一级文件夹名呗！
Private Function GetParentFolderName() As String'返回父文件夹名称
If Len(App.Path)<=3 Then GetParentFolderName=App.Path'此时已是顶层文件夹，如C:\，返回自身，仍是C:\
Dim tmpStr As String,LN As Long
tmpStr=App.Path
LN=InStrRev(tmpStr,"\")
GetParentFolderName=Left(tmpStr,LN)'返回值带“\”
End Function
像楼主说得情况，调用该函数
GetParentFolderName()应该得到“C:\AAA\”
顺便说一句，楼主的斜杠打反咯……呵呵
这个只能用绝对路径了
用相对路径
"../bbb.txt"
".."代表上级目录
当前文件夹写成 App.path & "/nihao/工程1.exe"
另一个文件夹写成 App.path & "/bbb.txt"
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024