就是要获得上一级文件夹名呗!
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\”
顺便说一句,楼主的斜杠打反咯……呵呵
温馨提示:答案为网友推荐,仅供参考