VB里怎么读取当前文件下的前一个文件夹里的文本内容

2024-12-21 06:41:14

推荐回答（4个）

回答1：

就是要获得上一级文件夹名呗！
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\”
顺便说一句，楼主的斜杠打反咯……呵呵

回答2：

这个只能用绝对路径了

回答3：

用相对路径

"../bbb.txt"

".."代表上级目录

回答4：

当前文件夹写成 App.path & "/nihao/工程1.exe"
另一个文件夹写成 App.path & "/bbb.txt"