이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
댓글 '4'
고수가되고파님..
공부를 열심히 하시는 모습이 보기 좋습니다.
답변을 얻으셨으면 그에 대한 피드백도 중요합니다.
그러면서 저도 배우거든요.. 아.. 이렇게 설명하면 이해를 잘 못하시는구나.. 라든가..
이렇게 설명드리면 좋아하시는구나.. 이런 것들요..
이미 드린 답변을 같은 내용으로 다시 질문하신다는 것은..
제 답변을 무시하시는거라고 밖에 생각이 안되네요..
솔직히 기분이 썩 좋지는 않습니다.
온라인의 경우..
오프라인 보다 서로의 감정을 상하게 하기 쉽습니다.
상대방의 표정이나 제스쳐를 볼 수 없는 상태에서 오로지 텍스트로만 커뮤니케이션하니까요..
조금만 더 주의를 기울인다면 모두가 즐겁고 행복한 온라인 커뮤니티가 될 것 같습니다.
감사합니다.
ps. 사용하신 프로시저가.. 재귀호출 방식을 사용하기 때문에 외부에 변수를 설정한 것입니다.
내부에 변수를 설정하면.. 서브폴더 파일을 검색할때마다
변수가 계속 초기화 되기때문에 같은 셀에 반복해서 파일이름을 집어넣을겁니다.
Private Function eachFolder(mainFolder As String)
'### 실행 내용..
For Each subFolder In fldName.SubFolders
'### 이 부분이 재귀호출에 해당하죠..
'### 자기 자신(eachFolder)을 다시 호출하는 겁니다.
eachFolder subFolder.Path
Next subFolder
End Function
예전에 하셨던 질문을 다시 하셨네요..
잘 이해가 안되시면 다시 물어보시지 그러셨어요..
다시 말씀드리자면.. 숨김파일을 찾고 싶으시면.. GetAttr함수를 사용하시면 됩니다.
http://www.abyul.com/zbxe/111698
For Each fileName In fldName.Files
If InStr(fileName, ".xls") Then
'### 바래 아랫줄 코드는 Select Case filename.attributes 하셔도 됩니다.
Select Case GetAttr(fileName)
'### 숨긴 파일 속성이 있으면 기본 속성에 +2해주면 됩니다.
'### 기본 파일 속성이 0 또는 32이므로.. 2 또는 34는 숨긴 파일입니다.
'### 단순히 숨기것 뿐만 아니라 숨겨있고, 보호되어 있으면 거기에 +1을 더한 값을 갖습니다.
'### 그래서 3과 35인지도 체크를 하는 것입니다.
Case 2, 34, 3, 35
Case Else
ActiveCell.Offset(i).Value = fileName
i = i + 1
End Select
End If
Next fileName
첨부파일을 참고하세요..
다운받기 : 특정폴더모든파일실행-4.xlsm
참고로..
참고하신 Scripting.FileSystemObject 개체에는 Attributes라는 속성이 있습니다.
파일의 속성을 나타내는 것이지요..
그래서 GetAttr()함수를 사용하지 않고..
Select Case filename.attributes 라고 써도 되는 것입니다.
부디.. 도움이 되셨기를..