폴더를 만들고 폴더의 하위 폴더에서 Excel VBA
나는 풀 다운 메뉴의 회사에 의해 채워진 목록에서 다른 장이다. 세 개의 열이 있는 회사로,작업#고할 수 있습니다.
할 때 작업을 만들 필요에 대한 폴더는 회사와 하위 폴더에 대한 말할 수 있습니다.
는 경우에 당신은 경로를 아래로 이동처럼 보일 것입니다:
C:\Images\Company 이름\부품 번호\
는 경우 또는 회사 이름 또는 부품 번호 존재하지 않는't 만들고,또는 덮어쓰기 오래된 하나입니다. 그 다음 단계로 이동합니다. 그렇다면 모두 폴더가 아무것도 발생하는 경우,하나 또는 두지 않't 존재로 만들 필요합니다.
다른 질문은 거기에 그렇게 만들 수 있는 방법대로 작동하 Mac 및 Pc 를 같습니까?
27
12
또 다른 간단한 버전에서 작업하 PC:
하위와 두 가지 기능이 있습니다. 서브 구축 경로를 사용하여 기능을 확인하는 경로가 존재하고 만들지 않는 경우. 전체 경로가 존재한다는 그것이 전달합니다. 이 작업에는 PC,하지만 당신은 무엇인지 확인을 수정해야에서 작동하 Mac 니다.
내가 찾은 훨씬 더 좋은 방법이고,적은 코드,더 많은 효율적이다. 참고는""""을 인용하는 경로로는 경우에 공백이 있을에서 폴더 이름입니다. 명령행 mkdir 만듭니다 어떤 중개 폴더에 필요한 경우 전체 경로가 존재합니다.
거기에 몇 가지 좋은 대답을 여기에서,그래서 나는 그냥 몇 가지를 추가 프로세스 개선. 의 더 나은 방법을 결정하는 폴더가 존재할 경우(이용하지 않 FileSystemObjects 는 모든 컴퓨터가 사용하도록 허용하):
마찬가지로,
이처럼 작동하는 곳에서 AutoCad VBA 와 나에서 그것을 잡고 excel 포럼도 있습니다. I don't 왜 모두들 그렇게 복잡하게 하는가?
(따옴표는 아래에 있는 생략의 혼동을 피하기 위해 프로그래밍 코드)
http://www.techonthenet.com/excel/formulas/mkdir.php
적도 아닌 윈도우 시스템은,하지만 여기는's 나 내 라이브러리에있는,사용하기 매우 쉽습니다. 특별한 라이브러리를 참조 필요합니다.
여기's 짧은 하지 않고 오류 처리를 생성하는 하위 디렉토리
내가 이것을 알고 대답했고 많은 좋은 답변이 이미 하지만 사람들은 여기 와서 보면에 대한 솔루션을출할 수 있습니다 내가 무엇을 정착했으니다.
다음 코드를 모두 처리한 경로를 드라이브(다음과 같"C:\Users...")및 서버 주소(일:"\Server\경로는.."),걸리는 경로를 인수하고 자동으로 스트립의 모든 파일 이름에서 그것은(사"\"면 끝에 그's 는 이미 디렉토리 경로)그리고 그것은 경우 false 를 반환을 위한 어떤 이유 폴더를 만들 수 없습니다. 네,그것은 또한 만듭 sub-sub-sub-directories 는 경우,이를 요청합니다.
난 누군가를 찾을 수 있습니다 유용합니다. 을 즐길! :-)
이것은 버전을 재귀와 함께 작동하는 드라이브 문자뿐만 아니라 UNC. 내가 사용하는 오류를 잡는 그것을 구현하지만 누구나 할 수 있다면 하나 없이,내가 관심을 가질 것입니다 그것을 참조하십시오. 이 방법은 가지에서 루트 할 수 있도록 다 쓸모 있는 경우 don't 에서 권한이 있는 루트와 낮은 부품의 디렉토리 나무입니다.
End Sub
'마틴 루프 버전을 위에 보다 더 나은 내 재귀 버전 '그래서 아래를 향상
Sub MakeAllDir(경$)
'형식"K:\firstfold\secf\fold3"
는 경우 Dir(경로)=vbNullString 다음
'다른 사람을 귀찮게 하지 않습
Dim 리&,MYPath$,BuildPath$,PathStrArray$()
PathStrArray=Split(경로,"\")
'트랩 문제의 드라이브 없음:\경로 주어
최종 경우
'가
End Sub
'처럼 사용 'MakeAllDir"K:\bil\joan\Johno"
'MakeAllDir"K:\bil\joan\Fredso"
'MakeAllDir"K:\bil\tom\wattom"
'MakeAllDir"K:\bil\herb\watherb"
'MakeAllDir"K:\bil\herb\Jim"
'MakeAllDir"bil\안\왓"'기본 드라이브