잘린 폴더 이름을 사용하여 파일 이름 바꾸기

Question

현재 파일의 전체 경로를 파일 이름의 접두사로 사용하여 파일 이름의 이름을 바꾸는 스크립트를 작성하고 있습니다. 이는 FileSystemObject에서 GetAbsolutePathName과 잘 작동합니다. Right() 함수를 사용하고 Replace()을 사용하여 백 슬래시를 -으로 대체하여 프롬프트를 삭제했습니다.

지금까지 모든 것이 잘 작동합니다. 그러나 긴 경로와 여러 하위 폴더로 인해 너무 긴 파일 이름을 피하려면 filename-string의 모든 foldername을 4자를 잘라내는 것이 좋습니다. 나는 가장 우아한 방법이 무엇인지 궁금합니다.

모든 위치를 식별하여 배열에 저장하고자를 위치를 계산하는 루프를 작성하는 것은 약간 복잡하고 아마 느릴 것입니다. 아무도 더 우아한 생각을 가지고 있니?

Answer 1

당신이 원하는 것을 할 수있는 가장 간단한 방법은 백 슬래시에 Split 원래 경로이며, 4 자에 각 요소를 절단하면 Left 기능 꼭대기, 다시 문자열로 다음 Join 수정 된 배열입니다.

path = "Users\someuser\Documents" 

arr = Split(path, "\") 
For i=0 To UBound(arr) 
    arr(i) = Left(arr(i), 4) 
Next 
prefix = Join(arr, "-") 'result: "User-some-Docu" 

는 FileSystemObject 경로 구분자 모두 \ 및 /을 받아들이는 조심 그래서 BA 것이 좋다 / \ 내지 제를 정규화 할 수있다.