Question

如何在VBA中编写一个函数来帮助我在文件之前获取最后一个文件夹（例如：Thisfolder）。

P:\Folder1\..\Thisfolder\Test.txt

我想提取：此文件夹

Answer 1

未经测试，很快写在这里，但你明白了：

function GetRightFolder(fname) as string
    dim a
    a = split(fname, "\")
    getRightFolder = a(ubound(a)-1)
end function

Answer 2

我包含了一个获取文件父文件夹名称的函数和一个获取文件路径

的函数

getParentFolderPath（＆＃34; P：\ Folder1 .. \ Thisfolder \ Test.txt＆＃34;）：P：\ Folder1 .. \ Thisfolder
getParentFolderName（＆＃34; P：\ Folder1 .. \ Thisfolder \ Test.txt＆＃34;）：此文件夹

Function getParentFolderPath(BasePath As String)
    getParentFolderPath = Left(BasePath, InStrRev(BasePath, "\") - 1)
End Function

Function getParentFolderName(BasePath As String)
    BasePath = Left(BasePath, InStrRev(BasePath, "\") - 1)
    getParentFolderName = Right(BasePath, Len(BasePath) - InStrRev(BasePath, "\"))
End Function

Answer 3

以下代码将{{1>}最后一个文件夹的名称（来自完整路径）放在工作表“ 此 < 中的单元格A1 中/强>”。

ThisWorkbook

VBA找到最后一个文件夹的名称

3 个答案: