VBA를 사용하여 경로 문자열에서 직접 상위 폴더 이름을 가져 오는 방법은 무엇입니까?

Question

일부 vba 스크립트를 수정하는 과제를 받았으며 전체 경로 문자열이 주어지면 상위 폴더 이름을 얻는 방법을 잘 모릅니다.

가 여기에 지금까지이 작업은 다음과 같습니다

'=== Required output should be "zzz" 
Dim FullFolderName As String 
Dim FolderName As String 
Dim FullPath As String 

FullPath = "x:\xxx\yyy\zzz\somefile.txt" 
Dim folderobject 
Set folderobject = CreateObject("Scripting.FileSystemObject") 

FullFolderName = folderobject.GetParentFolderName(ThisDrawing.FullName) 
'FullFolderName ends up with "x:\xxx\yyy\zzz" 
'Everything above works. Below does not. I want FolderName to = "zzz" 

FolderName = String.Remove(FullFolderName.LastIndexOf("\")) 

지금까지 그것은 .NET을 사용하는 것보다 더 복잡한 것 같다. 어떤 도움을 주셔서 감사합니다.

Answer 1

당신은 \ 문자로 구문 분석하는

FolderName = Left(FullFolderName, InStrRev(FullFolderName, "\")-1)